(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 9.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[    529321,      16897]
NotebookOptionsPosition[    525819,      16790]
NotebookOutlinePosition[    526173,      16806]
CellTagsIndexPosition[    526130,      16803]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[{
 RowBox[{
  RowBox[{"http", ":"}], "//", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"www", ".", "sciencedirect", ".", "com"}], "/", "science"}], 
     "/", "article"}], "/", "pii"}], "/", 
   "S0045782598000231"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"http", ":"}], "//", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"www", ".", "sciencedirect", ".", "com"}], "/", "science"}], 
     "/", "article"}], "/", "pii"}], "/", 
   "S0021999112004627"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"http", ":"}], "//", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"www", ".", "sciencedirect", ".", "com"}], "/", "science"}], 
     "/", "article"}], "/", "pii"}], "/", 
   "S0022460X07004877"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"http", ":"}], "//", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"www", ".", "sciencedirect", ".", "com"}], "/", "science"}], 
      "/", "article"}], "/", "pii"}], "/", "S0377042706001622"}]}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.613934945024209*^9, 3.613934966942361*^9}, {
  3.613935032661838*^9, 3.6139350358986807`*^9}, {3.613935093567443*^9, 
  3.6139350948664083`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Tu", "=", 
   RowBox[{"Series", "[", 
    RowBox[{
     RowBox[{"u", "[", 
      RowBox[{"x", ",", "y"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "a", ",", "7"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"y", ",", "b", ",", "7"}], "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.6138644634266443`*^9, 3.613864483218643*^9}, {
   3.613864521217339*^9, 3.61386455307638*^9}, {3.613864618711466*^9, 
   3.613864658514242*^9}, {3.6138648264686213`*^9, 3.6138648468597403`*^9}, {
   3.613864948755719*^9, 3.613864957165927*^9}, {3.6138651022556562`*^9, 
   3.613865154071301*^9}, {3.613865272378695*^9, 3.613865287026223*^9}, {
   3.613865664415594*^9, 3.613865664998172*^9}, {3.616960979372583*^9, 
   3.61696098542028*^9}, {3.616961270760313*^9, 3.616961273929426*^9}, 
   3.617138828420092*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"Normal", "[", "Tu", "]"}], "/.", 
      RowBox[{"a", "\[Rule]", 
       RowBox[{"x", "-", "hx"}]}]}], "/.", 
     RowBox[{"b", "\[Rule]", 
      RowBox[{"y", "+", "hy"}]}]}], "/.", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "hx"}], "+", "x"}], "\[Rule]", "x"}]}], "/.", 
   RowBox[{
    RowBox[{"y", "+", "hy"}], "\[Rule]", "y"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.6138649621339893`*^9, 3.613865005757908*^9}, {
   3.61386529245919*^9, 3.6138653360173883`*^9}, 3.613865382586072*^9, {
   3.613865674132846*^9, 3.61386568345741*^9}, 3.613865868338977*^9, {
   3.6169612646321573`*^9, 3.6169612937339983`*^9}, {3.616961388052802*^9, 
   3.616961400446747*^9}, {3.6169645463351307`*^9, 3.61696458107801*^9}, {
   3.6169646995329733`*^9, 3.616964733003441*^9}, {3.6169648029123983`*^9, 
   3.616964811680031*^9}, {3.616964846153616*^9, 3.616964861731954*^9}, 
   3.617138910821307*^9}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Uyph", "=", 
   RowBox[{
    RowBox[{"u", "[", 
     RowBox[{"x", ",", "y"}], "]"}], "+", 
    RowBox[{"hy", " ", 
     RowBox[{
      SuperscriptBox["u", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"0", ",", "1"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "+", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     SuperscriptBox["hy", "2"], " ", 
     RowBox[{
      SuperscriptBox["u", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"0", ",", "2"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "+", 
    RowBox[{
     FractionBox["1", "6"], " ", 
     SuperscriptBox["hy", "3"], " ", 
     RowBox[{
      SuperscriptBox["u", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"0", ",", "3"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "+", 
    RowBox[{
     FractionBox["1", "24"], " ", 
     SuperscriptBox["hy", "4"], " ", 
     RowBox[{
      SuperscriptBox["u", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"0", ",", "4"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "+", 
    RowBox[{
     FractionBox["1", "120"], " ", 
     SuperscriptBox["hy", "5"], " ", 
     RowBox[{
      SuperscriptBox["u", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"0", ",", "5"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "+", 
    RowBox[{
     FractionBox["1", "720"], " ", 
     SuperscriptBox["hy", "6"], " ", 
     RowBox[{
      SuperscriptBox["u", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"0", ",", "6"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "+", 
    FractionBox[
     RowBox[{
      SuperscriptBox["hy", "7"], " ", 
      RowBox[{
       SuperscriptBox["u", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "7"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}]}], "5040"]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Uymh", " ", "=", " ", 
   RowBox[{
    RowBox[{"u", "[", 
     RowBox[{"x", ",", "y"}], "]"}], "-", 
    RowBox[{"hy", " ", 
     RowBox[{
      SuperscriptBox["u", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"0", ",", "1"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "+", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     SuperscriptBox["hy", "2"], " ", 
     RowBox[{
      SuperscriptBox["u", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"0", ",", "2"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "-", 
    RowBox[{
     FractionBox["1", "6"], " ", 
     SuperscriptBox["hy", "3"], " ", 
     RowBox[{
      SuperscriptBox["u", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"0", ",", "3"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "+", 
    RowBox[{
     FractionBox["1", "24"], " ", 
     SuperscriptBox["hy", "4"], " ", 
     RowBox[{
      SuperscriptBox["u", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"0", ",", "4"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "-", 
    RowBox[{
     FractionBox["1", "120"], " ", 
     SuperscriptBox["hy", "5"], " ", 
     RowBox[{
      SuperscriptBox["u", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"0", ",", "5"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "+", 
    RowBox[{
     FractionBox["1", "720"], " ", 
     SuperscriptBox["hy", "6"], " ", 
     RowBox[{
      SuperscriptBox["u", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"0", ",", "6"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "-", 
    FractionBox[
     RowBox[{
      SuperscriptBox["hy", "7"], " ", 
      RowBox[{
       SuperscriptBox["u", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "7"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}]}], "5040"]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Uxmh", "=", 
   RowBox[{
    RowBox[{"u", "[", 
     RowBox[{"x", ",", "y"}], "]"}], "-", 
    RowBox[{"hx", " ", 
     RowBox[{
      SuperscriptBox["u", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"1", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "+", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     SuperscriptBox["hx", "2"], " ", 
     RowBox[{
      SuperscriptBox["u", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"2", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "-", 
    RowBox[{
     FractionBox["1", "6"], " ", 
     SuperscriptBox["hx", "3"], " ", 
     RowBox[{
      SuperscriptBox["u", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"3", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "+", 
    RowBox[{
     FractionBox["1", "24"], " ", 
     SuperscriptBox["hx", "4"], " ", 
     RowBox[{
      SuperscriptBox["u", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"4", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "-", 
    RowBox[{
     FractionBox["1", "120"], " ", 
     SuperscriptBox["hx", "5"], " ", 
     RowBox[{
      SuperscriptBox["u", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"5", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "+", 
    RowBox[{
     FractionBox["1", "720"], " ", 
     SuperscriptBox["hx", "6"], " ", 
     RowBox[{
      SuperscriptBox["u", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"6", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "-", 
    FractionBox[
     RowBox[{
      SuperscriptBox["hx", "7"], " ", 
      RowBox[{
       SuperscriptBox["u", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"7", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}]}], "5040"]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Uxph", "=", 
   RowBox[{
    RowBox[{"u", "[", 
     RowBox[{"x", ",", "y"}], "]"}], "+", 
    RowBox[{"hx", " ", 
     RowBox[{
      SuperscriptBox["u", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"1", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "+", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     SuperscriptBox["hx", "2"], " ", 
     RowBox[{
      SuperscriptBox["u", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"2", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "+", 
    RowBox[{
     FractionBox["1", "6"], " ", 
     SuperscriptBox["hx", "3"], " ", 
     RowBox[{
      SuperscriptBox["u", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"3", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "+", 
    RowBox[{
     FractionBox["1", "24"], " ", 
     SuperscriptBox["hx", "4"], " ", 
     RowBox[{
      SuperscriptBox["u", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"4", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "+", 
    RowBox[{
     FractionBox["1", "120"], " ", 
     SuperscriptBox["hx", "5"], " ", 
     RowBox[{
      SuperscriptBox["u", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"5", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "+", 
    RowBox[{
     FractionBox["1", "720"], " ", 
     SuperscriptBox["hx", "6"], " ", 
     RowBox[{
      SuperscriptBox["u", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"6", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "+", 
    FractionBox[
     RowBox[{
      SuperscriptBox["hx", "7"], " ", 
      RowBox[{
       SuperscriptBox["u", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"7", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}]}], "5040"]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Uxphyph", "=", 
   RowBox[{
    RowBox[{"u", "[", 
     RowBox[{"x", ",", "y"}], "]"}], "+", 
    RowBox[{"hx", " ", 
     RowBox[{
      SuperscriptBox["u", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"1", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "+", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     SuperscriptBox["hx", "2"], " ", 
     RowBox[{
      SuperscriptBox["u", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"2", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "+", 
    RowBox[{
     FractionBox["1", "6"], " ", 
     SuperscriptBox["hx", "3"], " ", 
     RowBox[{
      SuperscriptBox["u", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"3", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "+", 
    RowBox[{
     FractionBox["1", "24"], " ", 
     SuperscriptBox["hx", "4"], " ", 
     RowBox[{
      SuperscriptBox["u", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"4", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "+", 
    RowBox[{
     FractionBox["1", "120"], " ", 
     SuperscriptBox["hx", "5"], " ", 
     RowBox[{
      SuperscriptBox["u", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"5", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "+", 
    RowBox[{
     FractionBox["1", "720"], " ", 
     SuperscriptBox["hx", "6"], " ", 
     RowBox[{
      SuperscriptBox["u", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"6", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "+", 
    FractionBox[
     RowBox[{
      SuperscriptBox["hx", "7"], " ", 
      RowBox[{
       SuperscriptBox["u", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"7", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}]}], "5040"], "+", 
    RowBox[{"hy", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        SuperscriptBox["u", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "1"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"x", ",", "y"}], "]"}], "+", 
       RowBox[{"hx", " ", 
        RowBox[{
         SuperscriptBox["u", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"1", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       RowBox[{
        FractionBox["1", "2"], " ", 
        SuperscriptBox["hx", "2"], " ", 
        RowBox[{
         SuperscriptBox["u", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"2", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       RowBox[{
        FractionBox["1", "6"], " ", 
        SuperscriptBox["hx", "3"], " ", 
        RowBox[{
         SuperscriptBox["u", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"3", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       RowBox[{
        FractionBox["1", "24"], " ", 
        SuperscriptBox["hx", "4"], " ", 
        RowBox[{
         SuperscriptBox["u", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"4", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       RowBox[{
        FractionBox["1", "120"], " ", 
        SuperscriptBox["hx", "5"], " ", 
        RowBox[{
         SuperscriptBox["u", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"5", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       RowBox[{
        FractionBox["1", "720"], " ", 
        SuperscriptBox["hx", "6"], " ", 
        RowBox[{
         SuperscriptBox["u", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"6", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "7"], " ", 
         RowBox[{
          SuperscriptBox["u", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"7", ",", "1"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "5040"]}], ")"}]}], "+", 
    RowBox[{
     SuperscriptBox["hy", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        FractionBox["1", "2"], " ", 
        RowBox[{
         SuperscriptBox["u", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "2"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       RowBox[{
        FractionBox["1", "2"], " ", "hx", " ", 
        RowBox[{
         SuperscriptBox["u", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"1", ",", "2"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       RowBox[{
        FractionBox["1", "4"], " ", 
        SuperscriptBox["hx", "2"], " ", 
        RowBox[{
         SuperscriptBox["u", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"2", ",", "2"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       RowBox[{
        FractionBox["1", "12"], " ", 
        SuperscriptBox["hx", "3"], " ", 
        RowBox[{
         SuperscriptBox["u", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"3", ",", "2"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       RowBox[{
        FractionBox["1", "48"], " ", 
        SuperscriptBox["hx", "4"], " ", 
        RowBox[{
         SuperscriptBox["u", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"4", ",", "2"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       RowBox[{
        FractionBox["1", "240"], " ", 
        SuperscriptBox["hx", "5"], " ", 
        RowBox[{
         SuperscriptBox["u", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"5", ",", "2"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "6"], " ", 
         RowBox[{
          SuperscriptBox["u", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"6", ",", "2"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "1440"], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "7"], " ", 
         RowBox[{
          SuperscriptBox["u", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"7", ",", "2"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "10080"]}], ")"}]}], "+", 
    RowBox[{
     SuperscriptBox["hy", "3"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        FractionBox["1", "6"], " ", 
        RowBox[{
         SuperscriptBox["u", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "3"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       RowBox[{
        FractionBox["1", "6"], " ", "hx", " ", 
        RowBox[{
         SuperscriptBox["u", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"1", ",", "3"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       RowBox[{
        FractionBox["1", "12"], " ", 
        SuperscriptBox["hx", "2"], " ", 
        RowBox[{
         SuperscriptBox["u", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"2", ",", "3"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       RowBox[{
        FractionBox["1", "36"], " ", 
        SuperscriptBox["hx", "3"], " ", 
        RowBox[{
         SuperscriptBox["u", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"3", ",", "3"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       RowBox[{
        FractionBox["1", "144"], " ", 
        SuperscriptBox["hx", "4"], " ", 
        RowBox[{
         SuperscriptBox["u", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"4", ",", "3"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       RowBox[{
        FractionBox["1", "720"], " ", 
        SuperscriptBox["hx", "5"], " ", 
        RowBox[{
         SuperscriptBox["u", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"5", ",", "3"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "6"], " ", 
         RowBox[{
          SuperscriptBox["u", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"6", ",", "3"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "4320"], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "7"], " ", 
         RowBox[{
          SuperscriptBox["u", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"7", ",", "3"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "30240"]}], ")"}]}], "+", 
    RowBox[{
     SuperscriptBox["hy", "4"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        FractionBox["1", "24"], " ", 
        RowBox[{
         SuperscriptBox["u", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "4"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       RowBox[{
        FractionBox["1", "24"], " ", "hx", " ", 
        RowBox[{
         SuperscriptBox["u", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"1", ",", "4"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       RowBox[{
        FractionBox["1", "48"], " ", 
        SuperscriptBox["hx", "2"], " ", 
        RowBox[{
         SuperscriptBox["u", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"2", ",", "4"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       RowBox[{
        FractionBox["1", "144"], " ", 
        SuperscriptBox["hx", "3"], " ", 
        RowBox[{
         SuperscriptBox["u", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"3", ",", "4"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       RowBox[{
        FractionBox["1", "576"], " ", 
        SuperscriptBox["hx", "4"], " ", 
        RowBox[{
         SuperscriptBox["u", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"4", ",", "4"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "5"], " ", 
         RowBox[{
          SuperscriptBox["u", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"5", ",", "4"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "2880"], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "6"], " ", 
         RowBox[{
          SuperscriptBox["u", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"6", ",", "4"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "17280"], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "7"], " ", 
         RowBox[{
          SuperscriptBox["u", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"7", ",", "4"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "120960"]}], ")"}]}], "+", 
    RowBox[{
     SuperscriptBox["hy", "5"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        FractionBox["1", "120"], " ", 
        RowBox[{
         SuperscriptBox["u", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "5"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       RowBox[{
        FractionBox["1", "120"], " ", "hx", " ", 
        RowBox[{
         SuperscriptBox["u", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"1", ",", "5"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       RowBox[{
        FractionBox["1", "240"], " ", 
        SuperscriptBox["hx", "2"], " ", 
        RowBox[{
         SuperscriptBox["u", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"2", ",", "5"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       RowBox[{
        FractionBox["1", "720"], " ", 
        SuperscriptBox["hx", "3"], " ", 
        RowBox[{
         SuperscriptBox["u", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"3", ",", "5"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "4"], " ", 
         RowBox[{
          SuperscriptBox["u", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"4", ",", "5"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "2880"], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "5"], " ", 
         RowBox[{
          SuperscriptBox["u", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"5", ",", "5"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "14400"], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "6"], " ", 
         RowBox[{
          SuperscriptBox["u", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"6", ",", "5"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "86400"], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "7"], " ", 
         RowBox[{
          SuperscriptBox["u", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"7", ",", "5"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "604800"]}], ")"}]}], "+", 
    RowBox[{
     SuperscriptBox["hy", "6"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        FractionBox["1", "720"], " ", 
        RowBox[{
         SuperscriptBox["u", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "6"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       RowBox[{
        FractionBox["1", "720"], " ", "hx", " ", 
        RowBox[{
         SuperscriptBox["u", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"1", ",", "6"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "2"], " ", 
         RowBox[{
          SuperscriptBox["u", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"2", ",", "6"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "1440"], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "3"], " ", 
         RowBox[{
          SuperscriptBox["u", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"3", ",", "6"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "4320"], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "4"], " ", 
         RowBox[{
          SuperscriptBox["u", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"4", ",", "6"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "17280"], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "5"], " ", 
         RowBox[{
          SuperscriptBox["u", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"5", ",", "6"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "86400"], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "6"], " ", 
         RowBox[{
          SuperscriptBox["u", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"6", ",", "6"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "518400"], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "7"], " ", 
         RowBox[{
          SuperscriptBox["u", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"7", ",", "6"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "3628800"]}], ")"}]}], "+", 
    RowBox[{
     SuperscriptBox["hy", "7"], " ", 
     RowBox[{"(", 
      RowBox[{
       FractionBox[
        RowBox[{
         SuperscriptBox["u", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "7"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}], "5040"], "+", 
       FractionBox[
        RowBox[{"hx", " ", 
         RowBox[{
          SuperscriptBox["u", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"1", ",", "7"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "5040"], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "2"], " ", 
         RowBox[{
          SuperscriptBox["u", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"2", ",", "7"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "10080"], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "3"], " ", 
         RowBox[{
          SuperscriptBox["u", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"3", ",", "7"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "30240"], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "4"], " ", 
         RowBox[{
          SuperscriptBox["u", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"4", ",", "7"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "120960"], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "5"], " ", 
         RowBox[{
          SuperscriptBox["u", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"5", ",", "7"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "604800"], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "6"], " ", 
         RowBox[{
          SuperscriptBox["u", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"6", ",", "7"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "3628800"], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "7"], " ", 
         RowBox[{
          SuperscriptBox["u", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"7", ",", "7"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "25401600"]}], ")"}]}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Uxmhyph", "=", 
   RowBox[{
    RowBox[{"u", "[", 
     RowBox[{"x", ",", "y"}], "]"}], "-", 
    RowBox[{"hx", " ", 
     RowBox[{
      SuperscriptBox["u", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"1", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "+", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     SuperscriptBox["hx", "2"], " ", 
     RowBox[{
      SuperscriptBox["u", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"2", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "-", 
    RowBox[{
     FractionBox["1", "6"], " ", 
     SuperscriptBox["hx", "3"], " ", 
     RowBox[{
      SuperscriptBox["u", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"3", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "+", 
    RowBox[{
     FractionBox["1", "24"], " ", 
     SuperscriptBox["hx", "4"], " ", 
     RowBox[{
      SuperscriptBox["u", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"4", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "-", 
    RowBox[{
     FractionBox["1", "120"], " ", 
     SuperscriptBox["hx", "5"], " ", 
     RowBox[{
      SuperscriptBox["u", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"5", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "+", 
    RowBox[{
     FractionBox["1", "720"], " ", 
     SuperscriptBox["hx", "6"], " ", 
     RowBox[{
      SuperscriptBox["u", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"6", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "-", 
    FractionBox[
     RowBox[{
      SuperscriptBox["hx", "7"], " ", 
      RowBox[{
       SuperscriptBox["u", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"7", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}]}], "5040"], "+", 
    RowBox[{"hy", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        SuperscriptBox["u", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "1"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"x", ",", "y"}], "]"}], "-", 
       RowBox[{"hx", " ", 
        RowBox[{
         SuperscriptBox["u", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"1", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       RowBox[{
        FractionBox["1", "2"], " ", 
        SuperscriptBox["hx", "2"], " ", 
        RowBox[{
         SuperscriptBox["u", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"2", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "-", 
       RowBox[{
        FractionBox["1", "6"], " ", 
        SuperscriptBox["hx", "3"], " ", 
        RowBox[{
         SuperscriptBox["u", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"3", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       RowBox[{
        FractionBox["1", "24"], " ", 
        SuperscriptBox["hx", "4"], " ", 
        RowBox[{
         SuperscriptBox["u", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"4", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "-", 
       RowBox[{
        FractionBox["1", "120"], " ", 
        SuperscriptBox["hx", "5"], " ", 
        RowBox[{
         SuperscriptBox["u", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"5", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       RowBox[{
        FractionBox["1", "720"], " ", 
        SuperscriptBox["hx", "6"], " ", 
        RowBox[{
         SuperscriptBox["u", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"6", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "-", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "7"], " ", 
         RowBox[{
          SuperscriptBox["u", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"7", ",", "1"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "5040"]}], ")"}]}], "+", 
    RowBox[{
     SuperscriptBox["hy", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        FractionBox["1", "2"], " ", 
        RowBox[{
         SuperscriptBox["u", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "2"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "-", 
       RowBox[{
        FractionBox["1", "2"], " ", "hx", " ", 
        RowBox[{
         SuperscriptBox["u", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"1", ",", "2"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       RowBox[{
        FractionBox["1", "4"], " ", 
        SuperscriptBox["hx", "2"], " ", 
        RowBox[{
         SuperscriptBox["u", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"2", ",", "2"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "-", 
       RowBox[{
        FractionBox["1", "12"], " ", 
        SuperscriptBox["hx", "3"], " ", 
        RowBox[{
         SuperscriptBox["u", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"3", ",", "2"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       RowBox[{
        FractionBox["1", "48"], " ", 
        SuperscriptBox["hx", "4"], " ", 
        RowBox[{
         SuperscriptBox["u", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"4", ",", "2"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "-", 
       RowBox[{
        FractionBox["1", "240"], " ", 
        SuperscriptBox["hx", "5"], " ", 
        RowBox[{
         SuperscriptBox["u", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"5", ",", "2"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "6"], " ", 
         RowBox[{
          SuperscriptBox["u", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"6", ",", "2"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "1440"], "-", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "7"], " ", 
         RowBox[{
          SuperscriptBox["u", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"7", ",", "2"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "10080"]}], ")"}]}], "+", 
    RowBox[{
     SuperscriptBox["hy", "3"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        FractionBox["1", "6"], " ", 
        RowBox[{
         SuperscriptBox["u", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "3"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "-", 
       RowBox[{
        FractionBox["1", "6"], " ", "hx", " ", 
        RowBox[{
         SuperscriptBox["u", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"1", ",", "3"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       RowBox[{
        FractionBox["1", "12"], " ", 
        SuperscriptBox["hx", "2"], " ", 
        RowBox[{
         SuperscriptBox["u", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"2", ",", "3"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "-", 
       RowBox[{
        FractionBox["1", "36"], " ", 
        SuperscriptBox["hx", "3"], " ", 
        RowBox[{
         SuperscriptBox["u", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"3", ",", "3"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       RowBox[{
        FractionBox["1", "144"], " ", 
        SuperscriptBox["hx", "4"], " ", 
        RowBox[{
         SuperscriptBox["u", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"4", ",", "3"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "-", 
       RowBox[{
        FractionBox["1", "720"], " ", 
        SuperscriptBox["hx", "5"], " ", 
        RowBox[{
         SuperscriptBox["u", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"5", ",", "3"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "6"], " ", 
         RowBox[{
          SuperscriptBox["u", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"6", ",", "3"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "4320"], "-", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "7"], " ", 
         RowBox[{
          SuperscriptBox["u", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"7", ",", "3"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "30240"]}], ")"}]}], "+", 
    RowBox[{
     SuperscriptBox["hy", "4"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        FractionBox["1", "24"], " ", 
        RowBox[{
         SuperscriptBox["u", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "4"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "-", 
       RowBox[{
        FractionBox["1", "24"], " ", "hx", " ", 
        RowBox[{
         SuperscriptBox["u", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"1", ",", "4"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       RowBox[{
        FractionBox["1", "48"], " ", 
        SuperscriptBox["hx", "2"], " ", 
        RowBox[{
         SuperscriptBox["u", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"2", ",", "4"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "-", 
       RowBox[{
        FractionBox["1", "144"], " ", 
        SuperscriptBox["hx", "3"], " ", 
        RowBox[{
         SuperscriptBox["u", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"3", ",", "4"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       RowBox[{
        FractionBox["1", "576"], " ", 
        SuperscriptBox["hx", "4"], " ", 
        RowBox[{
         SuperscriptBox["u", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"4", ",", "4"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "-", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "5"], " ", 
         RowBox[{
          SuperscriptBox["u", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"5", ",", "4"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "2880"], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "6"], " ", 
         RowBox[{
          SuperscriptBox["u", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"6", ",", "4"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "17280"], "-", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "7"], " ", 
         RowBox[{
          SuperscriptBox["u", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"7", ",", "4"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "120960"]}], ")"}]}], "+", 
    RowBox[{
     SuperscriptBox["hy", "5"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        FractionBox["1", "120"], " ", 
        RowBox[{
         SuperscriptBox["u", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "5"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "-", 
       RowBox[{
        FractionBox["1", "120"], " ", "hx", " ", 
        RowBox[{
         SuperscriptBox["u", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"1", ",", "5"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       RowBox[{
        FractionBox["1", "240"], " ", 
        SuperscriptBox["hx", "2"], " ", 
        RowBox[{
         SuperscriptBox["u", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"2", ",", "5"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "-", 
       RowBox[{
        FractionBox["1", "720"], " ", 
        SuperscriptBox["hx", "3"], " ", 
        RowBox[{
         SuperscriptBox["u", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"3", ",", "5"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "4"], " ", 
         RowBox[{
          SuperscriptBox["u", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"4", ",", "5"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "2880"], "-", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "5"], " ", 
         RowBox[{
          SuperscriptBox["u", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"5", ",", "5"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "14400"], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "6"], " ", 
         RowBox[{
          SuperscriptBox["u", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"6", ",", "5"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "86400"], "-", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "7"], " ", 
         RowBox[{
          SuperscriptBox["u", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"7", ",", "5"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "604800"]}], ")"}]}], "+", 
    RowBox[{
     SuperscriptBox["hy", "6"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        FractionBox["1", "720"], " ", 
        RowBox[{
         SuperscriptBox["u", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "6"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "-", 
       RowBox[{
        FractionBox["1", "720"], " ", "hx", " ", 
        RowBox[{
         SuperscriptBox["u", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"1", ",", "6"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "2"], " ", 
         RowBox[{
          SuperscriptBox["u", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"2", ",", "6"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "1440"], "-", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "3"], " ", 
         RowBox[{
          SuperscriptBox["u", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"3", ",", "6"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "4320"], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "4"], " ", 
         RowBox[{
          SuperscriptBox["u", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"4", ",", "6"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "17280"], "-", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "5"], " ", 
         RowBox[{
          SuperscriptBox["u", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"5", ",", "6"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "86400"], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "6"], " ", 
         RowBox[{
          SuperscriptBox["u", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"6", ",", "6"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "518400"], "-", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "7"], " ", 
         RowBox[{
          SuperscriptBox["u", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"7", ",", "6"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "3628800"]}], ")"}]}], "+", 
    RowBox[{
     SuperscriptBox["hy", "7"], " ", 
     RowBox[{"(", 
      RowBox[{
       FractionBox[
        RowBox[{
         SuperscriptBox["u", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "7"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}], "5040"], "-", 
       FractionBox[
        RowBox[{"hx", " ", 
         RowBox[{
          SuperscriptBox["u", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"1", ",", "7"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "5040"], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "2"], " ", 
         RowBox[{
          SuperscriptBox["u", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"2", ",", "7"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "10080"], "-", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "3"], " ", 
         RowBox[{
          SuperscriptBox["u", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"3", ",", "7"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "30240"], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "4"], " ", 
         RowBox[{
          SuperscriptBox["u", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"4", ",", "7"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "120960"], "-", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "5"], " ", 
         RowBox[{
          SuperscriptBox["u", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"5", ",", "7"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "604800"], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "6"], " ", 
         RowBox[{
          SuperscriptBox["u", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"6", ",", "7"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "3628800"], "-", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "7"], " ", 
         RowBox[{
          SuperscriptBox["u", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"7", ",", "7"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "25401600"]}], ")"}]}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Uxphymh", "=", 
   RowBox[{
    RowBox[{"u", "[", 
     RowBox[{"x", ",", "y"}], "]"}], "+", 
    RowBox[{"hx", " ", 
     RowBox[{
      SuperscriptBox["u", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"1", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "+", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     SuperscriptBox["hx", "2"], " ", 
     RowBox[{
      SuperscriptBox["u", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"2", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "+", 
    RowBox[{
     FractionBox["1", "6"], " ", 
     SuperscriptBox["hx", "3"], " ", 
     RowBox[{
      SuperscriptBox["u", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"3", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "+", 
    RowBox[{
     FractionBox["1", "24"], " ", 
     SuperscriptBox["hx", "4"], " ", 
     RowBox[{
      SuperscriptBox["u", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"4", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "+", 
    RowBox[{
     FractionBox["1", "120"], " ", 
     SuperscriptBox["hx", "5"], " ", 
     RowBox[{
      SuperscriptBox["u", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"5", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "+", 
    RowBox[{
     FractionBox["1", "720"], " ", 
     SuperscriptBox["hx", "6"], " ", 
     RowBox[{
      SuperscriptBox["u", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"6", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "+", 
    FractionBox[
     RowBox[{
      SuperscriptBox["hx", "7"], " ", 
      RowBox[{
       SuperscriptBox["u", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"7", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}]}], "5040"], "-", 
    RowBox[{"hy", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        SuperscriptBox["u", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "1"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"x", ",", "y"}], "]"}], "+", 
       RowBox[{"hx", " ", 
        RowBox[{
         SuperscriptBox["u", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"1", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       RowBox[{
        FractionBox["1", "2"], " ", 
        SuperscriptBox["hx", "2"], " ", 
        RowBox[{
         SuperscriptBox["u", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"2", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       RowBox[{
        FractionBox["1", "6"], " ", 
        SuperscriptBox["hx", "3"], " ", 
        RowBox[{
         SuperscriptBox["u", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"3", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       RowBox[{
        FractionBox["1", "24"], " ", 
        SuperscriptBox["hx", "4"], " ", 
        RowBox[{
         SuperscriptBox["u", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"4", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       RowBox[{
        FractionBox["1", "120"], " ", 
        SuperscriptBox["hx", "5"], " ", 
        RowBox[{
         SuperscriptBox["u", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"5", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       RowBox[{
        FractionBox["1", "720"], " ", 
        SuperscriptBox["hx", "6"], " ", 
        RowBox[{
         SuperscriptBox["u", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"6", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "7"], " ", 
         RowBox[{
          SuperscriptBox["u", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"7", ",", "1"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "5040"]}], ")"}]}], "+", 
    RowBox[{
     SuperscriptBox["hy", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        FractionBox["1", "2"], " ", 
        RowBox[{
         SuperscriptBox["u", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "2"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       RowBox[{
        FractionBox["1", "2"], " ", "hx", " ", 
        RowBox[{
         SuperscriptBox["u", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"1", ",", "2"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       RowBox[{
        FractionBox["1", "4"], " ", 
        SuperscriptBox["hx", "2"], " ", 
        RowBox[{
         SuperscriptBox["u", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"2", ",", "2"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       RowBox[{
        FractionBox["1", "12"], " ", 
        SuperscriptBox["hx", "3"], " ", 
        RowBox[{
         SuperscriptBox["u", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"3", ",", "2"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       RowBox[{
        FractionBox["1", "48"], " ", 
        SuperscriptBox["hx", "4"], " ", 
        RowBox[{
         SuperscriptBox["u", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"4", ",", "2"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       RowBox[{
        FractionBox["1", "240"], " ", 
        SuperscriptBox["hx", "5"], " ", 
        RowBox[{
         SuperscriptBox["u", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"5", ",", "2"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "6"], " ", 
         RowBox[{
          SuperscriptBox["u", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"6", ",", "2"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "1440"], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "7"], " ", 
         RowBox[{
          SuperscriptBox["u", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"7", ",", "2"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "10080"]}], ")"}]}], "-", 
    RowBox[{
     SuperscriptBox["hy", "3"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        FractionBox["1", "6"], " ", 
        RowBox[{
         SuperscriptBox["u", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "3"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       RowBox[{
        FractionBox["1", "6"], " ", "hx", " ", 
        RowBox[{
         SuperscriptBox["u", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"1", ",", "3"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       RowBox[{
        FractionBox["1", "12"], " ", 
        SuperscriptBox["hx", "2"], " ", 
        RowBox[{
         SuperscriptBox["u", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"2", ",", "3"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       RowBox[{
        FractionBox["1", "36"], " ", 
        SuperscriptBox["hx", "3"], " ", 
        RowBox[{
         SuperscriptBox["u", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"3", ",", "3"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       RowBox[{
        FractionBox["1", "144"], " ", 
        SuperscriptBox["hx", "4"], " ", 
        RowBox[{
         SuperscriptBox["u", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"4", ",", "3"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       RowBox[{
        FractionBox["1", "720"], " ", 
        SuperscriptBox["hx", "5"], " ", 
        RowBox[{
         SuperscriptBox["u", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"5", ",", "3"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "6"], " ", 
         RowBox[{
          SuperscriptBox["u", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"6", ",", "3"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "4320"], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "7"], " ", 
         RowBox[{
          SuperscriptBox["u", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"7", ",", "3"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "30240"]}], ")"}]}], "+", 
    RowBox[{
     SuperscriptBox["hy", "4"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        FractionBox["1", "24"], " ", 
        RowBox[{
         SuperscriptBox["u", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "4"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       RowBox[{
        FractionBox["1", "24"], " ", "hx", " ", 
        RowBox[{
         SuperscriptBox["u", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"1", ",", "4"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       RowBox[{
        FractionBox["1", "48"], " ", 
        SuperscriptBox["hx", "2"], " ", 
        RowBox[{
         SuperscriptBox["u", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"2", ",", "4"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       RowBox[{
        FractionBox["1", "144"], " ", 
        SuperscriptBox["hx", "3"], " ", 
        RowBox[{
         SuperscriptBox["u", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"3", ",", "4"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       RowBox[{
        FractionBox["1", "576"], " ", 
        SuperscriptBox["hx", "4"], " ", 
        RowBox[{
         SuperscriptBox["u", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"4", ",", "4"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "5"], " ", 
         RowBox[{
          SuperscriptBox["u", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"5", ",", "4"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "2880"], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "6"], " ", 
         RowBox[{
          SuperscriptBox["u", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"6", ",", "4"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "17280"], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "7"], " ", 
         RowBox[{
          SuperscriptBox["u", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"7", ",", "4"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "120960"]}], ")"}]}], "-", 
    RowBox[{
     SuperscriptBox["hy", "5"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        FractionBox["1", "120"], " ", 
        RowBox[{
         SuperscriptBox["u", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "5"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       RowBox[{
        FractionBox["1", "120"], " ", "hx", " ", 
        RowBox[{
         SuperscriptBox["u", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"1", ",", "5"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       RowBox[{
        FractionBox["1", "240"], " ", 
        SuperscriptBox["hx", "2"], " ", 
        RowBox[{
         SuperscriptBox["u", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"2", ",", "5"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       RowBox[{
        FractionBox["1", "720"], " ", 
        SuperscriptBox["hx", "3"], " ", 
        RowBox[{
         SuperscriptBox["u", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"3", ",", "5"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "4"], " ", 
         RowBox[{
          SuperscriptBox["u", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"4", ",", "5"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "2880"], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "5"], " ", 
         RowBox[{
          SuperscriptBox["u", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"5", ",", "5"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "14400"], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "6"], " ", 
         RowBox[{
          SuperscriptBox["u", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"6", ",", "5"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "86400"], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "7"], " ", 
         RowBox[{
          SuperscriptBox["u", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"7", ",", "5"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "604800"]}], ")"}]}], "+", 
    RowBox[{
     SuperscriptBox["hy", "6"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        FractionBox["1", "720"], " ", 
        RowBox[{
         SuperscriptBox["u", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "6"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       RowBox[{
        FractionBox["1", "720"], " ", "hx", " ", 
        RowBox[{
         SuperscriptBox["u", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"1", ",", "6"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "2"], " ", 
         RowBox[{
          SuperscriptBox["u", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"2", ",", "6"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "1440"], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "3"], " ", 
         RowBox[{
          SuperscriptBox["u", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"3", ",", "6"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "4320"], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "4"], " ", 
         RowBox[{
          SuperscriptBox["u", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"4", ",", "6"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "17280"], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "5"], " ", 
         RowBox[{
          SuperscriptBox["u", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"5", ",", "6"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "86400"], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "6"], " ", 
         RowBox[{
          SuperscriptBox["u", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"6", ",", "6"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "518400"], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "7"], " ", 
         RowBox[{
          SuperscriptBox["u", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"7", ",", "6"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "3628800"]}], ")"}]}], "-", 
    RowBox[{
     SuperscriptBox["hy", "7"], " ", 
     RowBox[{"(", 
      RowBox[{
       FractionBox[
        RowBox[{
         SuperscriptBox["u", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "7"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}], "5040"], "+", 
       FractionBox[
        RowBox[{"hx", " ", 
         RowBox[{
          SuperscriptBox["u", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"1", ",", "7"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "5040"], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "2"], " ", 
         RowBox[{
          SuperscriptBox["u", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"2", ",", "7"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "10080"], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "3"], " ", 
         RowBox[{
          SuperscriptBox["u", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"3", ",", "7"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "30240"], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "4"], " ", 
         RowBox[{
          SuperscriptBox["u", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"4", ",", "7"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "120960"], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "5"], " ", 
         RowBox[{
          SuperscriptBox["u", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"5", ",", "7"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "604800"], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "6"], " ", 
         RowBox[{
          SuperscriptBox["u", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"6", ",", "7"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "3628800"], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "7"], " ", 
         RowBox[{
          SuperscriptBox["u", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"7", ",", "7"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "25401600"]}], ")"}]}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Uxmhymh", "=", 
   RowBox[{
    RowBox[{"u", "[", 
     RowBox[{"x", ",", "y"}], "]"}], "-", 
    RowBox[{"hx", " ", 
     RowBox[{
      SuperscriptBox["u", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"1", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "+", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     SuperscriptBox["hx", "2"], " ", 
     RowBox[{
      SuperscriptBox["u", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"2", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "-", 
    RowBox[{
     FractionBox["1", "6"], " ", 
     SuperscriptBox["hx", "3"], " ", 
     RowBox[{
      SuperscriptBox["u", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"3", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "+", 
    RowBox[{
     FractionBox["1", "24"], " ", 
     SuperscriptBox["hx", "4"], " ", 
     RowBox[{
      SuperscriptBox["u", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"4", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "-", 
    RowBox[{
     FractionBox["1", "120"], " ", 
     SuperscriptBox["hx", "5"], " ", 
     RowBox[{
      SuperscriptBox["u", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"5", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "+", 
    RowBox[{
     FractionBox["1", "720"], " ", 
     SuperscriptBox["hx", "6"], " ", 
     RowBox[{
      SuperscriptBox["u", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"6", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "-", 
    FractionBox[
     RowBox[{
      SuperscriptBox["hx", "7"], " ", 
      RowBox[{
       SuperscriptBox["u", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"7", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}]}], "5040"], "-", 
    RowBox[{"hy", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        SuperscriptBox["u", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "1"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"x", ",", "y"}], "]"}], "-", 
       RowBox[{"hx", " ", 
        RowBox[{
         SuperscriptBox["u", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"1", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       RowBox[{
        FractionBox["1", "2"], " ", 
        SuperscriptBox["hx", "2"], " ", 
        RowBox[{
         SuperscriptBox["u", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"2", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "-", 
       RowBox[{
        FractionBox["1", "6"], " ", 
        SuperscriptBox["hx", "3"], " ", 
        RowBox[{
         SuperscriptBox["u", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"3", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       RowBox[{
        FractionBox["1", "24"], " ", 
        SuperscriptBox["hx", "4"], " ", 
        RowBox[{
         SuperscriptBox["u", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"4", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "-", 
       RowBox[{
        FractionBox["1", "120"], " ", 
        SuperscriptBox["hx", "5"], " ", 
        RowBox[{
         SuperscriptBox["u", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"5", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       RowBox[{
        FractionBox["1", "720"], " ", 
        SuperscriptBox["hx", "6"], " ", 
        RowBox[{
         SuperscriptBox["u", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"6", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "-", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "7"], " ", 
         RowBox[{
          SuperscriptBox["u", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"7", ",", "1"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "5040"]}], ")"}]}], "+", 
    RowBox[{
     SuperscriptBox["hy", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        FractionBox["1", "2"], " ", 
        RowBox[{
         SuperscriptBox["u", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "2"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "-", 
       RowBox[{
        FractionBox["1", "2"], " ", "hx", " ", 
        RowBox[{
         SuperscriptBox["u", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"1", ",", "2"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       RowBox[{
        FractionBox["1", "4"], " ", 
        SuperscriptBox["hx", "2"], " ", 
        RowBox[{
         SuperscriptBox["u", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"2", ",", "2"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "-", 
       RowBox[{
        FractionBox["1", "12"], " ", 
        SuperscriptBox["hx", "3"], " ", 
        RowBox[{
         SuperscriptBox["u", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"3", ",", "2"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       RowBox[{
        FractionBox["1", "48"], " ", 
        SuperscriptBox["hx", "4"], " ", 
        RowBox[{
         SuperscriptBox["u", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"4", ",", "2"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "-", 
       RowBox[{
        FractionBox["1", "240"], " ", 
        SuperscriptBox["hx", "5"], " ", 
        RowBox[{
         SuperscriptBox["u", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"5", ",", "2"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "6"], " ", 
         RowBox[{
          SuperscriptBox["u", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"6", ",", "2"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "1440"], "-", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "7"], " ", 
         RowBox[{
          SuperscriptBox["u", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"7", ",", "2"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "10080"]}], ")"}]}], "-", 
    RowBox[{
     SuperscriptBox["hy", "3"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        FractionBox["1", "6"], " ", 
        RowBox[{
         SuperscriptBox["u", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "3"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "-", 
       RowBox[{
        FractionBox["1", "6"], " ", "hx", " ", 
        RowBox[{
         SuperscriptBox["u", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"1", ",", "3"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       RowBox[{
        FractionBox["1", "12"], " ", 
        SuperscriptBox["hx", "2"], " ", 
        RowBox[{
         SuperscriptBox["u", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"2", ",", "3"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "-", 
       RowBox[{
        FractionBox["1", "36"], " ", 
        SuperscriptBox["hx", "3"], " ", 
        RowBox[{
         SuperscriptBox["u", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"3", ",", "3"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       RowBox[{
        FractionBox["1", "144"], " ", 
        SuperscriptBox["hx", "4"], " ", 
        RowBox[{
         SuperscriptBox["u", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"4", ",", "3"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "-", 
       RowBox[{
        FractionBox["1", "720"], " ", 
        SuperscriptBox["hx", "5"], " ", 
        RowBox[{
         SuperscriptBox["u", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"5", ",", "3"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "6"], " ", 
         RowBox[{
          SuperscriptBox["u", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"6", ",", "3"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "4320"], "-", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "7"], " ", 
         RowBox[{
          SuperscriptBox["u", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"7", ",", "3"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "30240"]}], ")"}]}], "+", 
    RowBox[{
     SuperscriptBox["hy", "4"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        FractionBox["1", "24"], " ", 
        RowBox[{
         SuperscriptBox["u", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "4"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "-", 
       RowBox[{
        FractionBox["1", "24"], " ", "hx", " ", 
        RowBox[{
         SuperscriptBox["u", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"1", ",", "4"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       RowBox[{
        FractionBox["1", "48"], " ", 
        SuperscriptBox["hx", "2"], " ", 
        RowBox[{
         SuperscriptBox["u", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"2", ",", "4"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "-", 
       RowBox[{
        FractionBox["1", "144"], " ", 
        SuperscriptBox["hx", "3"], " ", 
        RowBox[{
         SuperscriptBox["u", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"3", ",", "4"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       RowBox[{
        FractionBox["1", "576"], " ", 
        SuperscriptBox["hx", "4"], " ", 
        RowBox[{
         SuperscriptBox["u", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"4", ",", "4"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "-", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "5"], " ", 
         RowBox[{
          SuperscriptBox["u", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"5", ",", "4"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "2880"], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "6"], " ", 
         RowBox[{
          SuperscriptBox["u", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"6", ",", "4"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "17280"], "-", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "7"], " ", 
         RowBox[{
          SuperscriptBox["u", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"7", ",", "4"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "120960"]}], ")"}]}], "-", 
    RowBox[{
     SuperscriptBox["hy", "5"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        FractionBox["1", "120"], " ", 
        RowBox[{
         SuperscriptBox["u", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "5"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "-", 
       RowBox[{
        FractionBox["1", "120"], " ", "hx", " ", 
        RowBox[{
         SuperscriptBox["u", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"1", ",", "5"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       RowBox[{
        FractionBox["1", "240"], " ", 
        SuperscriptBox["hx", "2"], " ", 
        RowBox[{
         SuperscriptBox["u", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"2", ",", "5"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "-", 
       RowBox[{
        FractionBox["1", "720"], " ", 
        SuperscriptBox["hx", "3"], " ", 
        RowBox[{
         SuperscriptBox["u", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"3", ",", "5"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "4"], " ", 
         RowBox[{
          SuperscriptBox["u", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"4", ",", "5"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "2880"], "-", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "5"], " ", 
         RowBox[{
          SuperscriptBox["u", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"5", ",", "5"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "14400"], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "6"], " ", 
         RowBox[{
          SuperscriptBox["u", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"6", ",", "5"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "86400"], "-", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "7"], " ", 
         RowBox[{
          SuperscriptBox["u", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"7", ",", "5"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "604800"]}], ")"}]}], "+", 
    RowBox[{
     SuperscriptBox["hy", "6"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        FractionBox["1", "720"], " ", 
        RowBox[{
         SuperscriptBox["u", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "6"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "-", 
       RowBox[{
        FractionBox["1", "720"], " ", "hx", " ", 
        RowBox[{
         SuperscriptBox["u", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"1", ",", "6"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "2"], " ", 
         RowBox[{
          SuperscriptBox["u", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"2", ",", "6"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "1440"], "-", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "3"], " ", 
         RowBox[{
          SuperscriptBox["u", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"3", ",", "6"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "4320"], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "4"], " ", 
         RowBox[{
          SuperscriptBox["u", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"4", ",", "6"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "17280"], "-", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "5"], " ", 
         RowBox[{
          SuperscriptBox["u", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"5", ",", "6"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "86400"], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "6"], " ", 
         RowBox[{
          SuperscriptBox["u", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"6", ",", "6"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "518400"], "-", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "7"], " ", 
         RowBox[{
          SuperscriptBox["u", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"7", ",", "6"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "3628800"]}], ")"}]}], "-", 
    RowBox[{
     SuperscriptBox["hy", "7"], " ", 
     RowBox[{"(", 
      RowBox[{
       FractionBox[
        RowBox[{
         SuperscriptBox["u", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "7"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}], "5040"], "-", 
       FractionBox[
        RowBox[{"hx", " ", 
         RowBox[{
          SuperscriptBox["u", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"1", ",", "7"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "5040"], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "2"], " ", 
         RowBox[{
          SuperscriptBox["u", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"2", ",", "7"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "10080"], "-", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "3"], " ", 
         RowBox[{
          SuperscriptBox["u", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"3", ",", "7"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "30240"], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "4"], " ", 
         RowBox[{
          SuperscriptBox["u", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"4", ",", "7"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "120960"], "-", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "5"], " ", 
         RowBox[{
          SuperscriptBox["u", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"5", ",", "7"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "604800"], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "6"], " ", 
         RowBox[{
          SuperscriptBox["u", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"6", ",", "7"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "3628800"], "-", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "7"], " ", 
         RowBox[{
          SuperscriptBox["u", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"7", ",", "7"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "25401600"]}], ")"}]}]}]}], 
  ";"}]}], "Input",
 PageWidth->Infinity,
 CellChangeTimes->{{3.6138658042778788`*^9, 3.6138658105465*^9}, 
   3.6138658521393967`*^9, {3.61386593645553*^9, 3.613865960690412*^9}, {
   3.6138663056074953`*^9, 3.613866326879838*^9}, {3.61696188609842*^9, 
   3.616961923880241*^9}, {3.616961987277081*^9, 3.6169621720076647`*^9}, {
   3.6169633402565517`*^9, 3.616963464784404*^9}, {3.616963618686677*^9, 
   3.616963645686198*^9}, {3.6169637538483257`*^9, 3.6169639542245207`*^9}, {
   3.616963985778678*^9, 3.616964031289927*^9}, 3.616964674711987*^9, 
   3.616964768339776*^9, 3.6169648347062397`*^9, 3.616964881852501*^9}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.613866322522286*^9, 3.6138663225596743`*^9}, {
  3.617147296530973*^9, 3.617147323865247*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Byph2", "=", 
   RowBox[{
    RowBox[{"b", "[", 
     RowBox[{"x", ",", "y"}], "]"}], "+", 
    RowBox[{
     FractionBox["1", "2"], " ", "hy", " ", 
     RowBox[{
      SuperscriptBox["b", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"0", ",", "1"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "+", 
    RowBox[{
     FractionBox["1", "8"], " ", 
     SuperscriptBox["hy", "2"], " ", 
     RowBox[{
      SuperscriptBox["b", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"0", ",", "2"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "+", 
    RowBox[{
     FractionBox["1", "48"], " ", 
     SuperscriptBox["hy", "3"], " ", 
     RowBox[{
      SuperscriptBox["b", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"0", ",", "3"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "+", 
    RowBox[{
     FractionBox["1", "384"], " ", 
     SuperscriptBox["hy", "4"], " ", 
     RowBox[{
      SuperscriptBox["b", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"0", ",", "4"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "+", 
    FractionBox[
     RowBox[{
      SuperscriptBox["hy", "5"], " ", 
      RowBox[{
       SuperscriptBox["b", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "5"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}]}], "3840"], "+", 
    FractionBox[
     RowBox[{
      SuperscriptBox["hy", "6"], " ", 
      RowBox[{
       SuperscriptBox["b", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "6"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}]}], "46080"], "+", 
    FractionBox[
     RowBox[{
      SuperscriptBox["hy", "7"], " ", 
      RowBox[{
       SuperscriptBox["b", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "7"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}]}], "645120"]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Bymh2", " ", "=", " ", 
   RowBox[{
    RowBox[{"b", "[", 
     RowBox[{"x", ",", "y"}], "]"}], "-", 
    RowBox[{
     FractionBox["1", "2"], " ", "hy", " ", 
     RowBox[{
      SuperscriptBox["b", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"0", ",", "1"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "+", 
    RowBox[{
     FractionBox["1", "8"], " ", 
     SuperscriptBox["hy", "2"], " ", 
     RowBox[{
      SuperscriptBox["b", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"0", ",", "2"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "-", 
    RowBox[{
     FractionBox["1", "48"], " ", 
     SuperscriptBox["hy", "3"], " ", 
     RowBox[{
      SuperscriptBox["b", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"0", ",", "3"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "+", 
    RowBox[{
     FractionBox["1", "384"], " ", 
     SuperscriptBox["hy", "4"], " ", 
     RowBox[{
      SuperscriptBox["b", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"0", ",", "4"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "-", 
    FractionBox[
     RowBox[{
      SuperscriptBox["hy", "5"], " ", 
      RowBox[{
       SuperscriptBox["b", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "5"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}]}], "3840"], "+", 
    FractionBox[
     RowBox[{
      SuperscriptBox["hy", "6"], " ", 
      RowBox[{
       SuperscriptBox["b", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "6"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}]}], "46080"], "-", 
    FractionBox[
     RowBox[{
      SuperscriptBox["hy", "7"], " ", 
      RowBox[{
       SuperscriptBox["b", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "7"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}]}], "645120"]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Bxph2", "=", 
   RowBox[{
    RowBox[{"b", "[", 
     RowBox[{"x", ",", "y"}], "]"}], "+", 
    RowBox[{
     FractionBox["1", "2"], " ", "hx", " ", 
     RowBox[{
      SuperscriptBox["b", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"1", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "+", 
    RowBox[{
     FractionBox["1", "8"], " ", 
     SuperscriptBox["hx", "2"], " ", 
     RowBox[{
      SuperscriptBox["b", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"2", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "+", 
    RowBox[{
     FractionBox["1", "48"], " ", 
     SuperscriptBox["hx", "3"], " ", 
     RowBox[{
      SuperscriptBox["b", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"3", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "+", 
    RowBox[{
     FractionBox["1", "384"], " ", 
     SuperscriptBox["hx", "4"], " ", 
     RowBox[{
      SuperscriptBox["b", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"4", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "+", 
    FractionBox[
     RowBox[{
      SuperscriptBox["hx", "5"], " ", 
      RowBox[{
       SuperscriptBox["b", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"5", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}]}], "3840"], "+", 
    FractionBox[
     RowBox[{
      SuperscriptBox["hx", "6"], " ", 
      RowBox[{
       SuperscriptBox["b", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"6", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}]}], "46080"], "+", 
    FractionBox[
     RowBox[{
      SuperscriptBox["hx", "7"], " ", 
      RowBox[{
       SuperscriptBox["b", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"7", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}]}], "645120"]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Bxmh2", " ", "=", " ", 
   RowBox[{
    RowBox[{"b", "[", 
     RowBox[{"x", ",", "y"}], "]"}], "-", 
    RowBox[{
     FractionBox["1", "2"], " ", "hx", " ", 
     RowBox[{
      SuperscriptBox["b", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"1", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "+", 
    RowBox[{
     FractionBox["1", "8"], " ", 
     SuperscriptBox["hx", "2"], " ", 
     RowBox[{
      SuperscriptBox["b", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"2", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "-", 
    RowBox[{
     FractionBox["1", "48"], " ", 
     SuperscriptBox["hx", "3"], " ", 
     RowBox[{
      SuperscriptBox["b", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"3", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "+", 
    RowBox[{
     FractionBox["1", "384"], " ", 
     SuperscriptBox["hx", "4"], " ", 
     RowBox[{
      SuperscriptBox["b", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"4", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "-", 
    FractionBox[
     RowBox[{
      SuperscriptBox["hx", "5"], " ", 
      RowBox[{
       SuperscriptBox["b", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"5", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}]}], "3840"], "+", 
    FractionBox[
     RowBox[{
      SuperscriptBox["hx", "6"], " ", 
      RowBox[{
       SuperscriptBox["b", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"6", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}]}], "46080"], "-", 
    FractionBox[
     RowBox[{
      SuperscriptBox["hx", "7"], " ", 
      RowBox[{
       SuperscriptBox["b", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"7", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}]}], "645120"]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Bxph2yph2", "=", 
   RowBox[{
    RowBox[{"b", "[", 
     RowBox[{"x", ",", "y"}], "]"}], "+", 
    RowBox[{
     FractionBox["1", "2"], "hx", " ", 
     RowBox[{
      SuperscriptBox["b", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"1", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "+", 
    RowBox[{
     FractionBox["1", "8"], " ", 
     SuperscriptBox["hx", "2"], " ", 
     RowBox[{
      SuperscriptBox["b", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"2", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "+", 
    RowBox[{
     FractionBox["1", "48"], " ", 
     SuperscriptBox["hx", "3"], " ", 
     RowBox[{
      SuperscriptBox["b", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"3", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "+", 
    RowBox[{
     FractionBox["1", "384"], " ", 
     SuperscriptBox["hx", "4"], " ", 
     RowBox[{
      SuperscriptBox["b", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"4", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "+", 
    RowBox[{
     FractionBox["1", "3840"], " ", 
     SuperscriptBox["hx", "5"], " ", 
     RowBox[{
      SuperscriptBox["b", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"5", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "+", 
    RowBox[{
     FractionBox["1", "46080"], " ", 
     SuperscriptBox["hx", "6"], " ", 
     RowBox[{
      SuperscriptBox["b", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"6", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "+", 
    FractionBox[
     RowBox[{
      SuperscriptBox["hx", "7"], " ", 
      RowBox[{
       SuperscriptBox["b", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"7", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}]}], "645120"], "+", 
    RowBox[{
     FractionBox["1", "2"], "hy", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        SuperscriptBox["b", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "1"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"x", ",", "y"}], "]"}], "+", 
       RowBox[{
        FractionBox["1", "2"], "hx", " ", 
        RowBox[{
         SuperscriptBox["b", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"1", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       RowBox[{
        FractionBox["1", "8"], " ", 
        SuperscriptBox["hx", "2"], " ", 
        RowBox[{
         SuperscriptBox["b", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"2", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       RowBox[{
        FractionBox["1", "48"], " ", 
        SuperscriptBox["hx", "3"], " ", 
        RowBox[{
         SuperscriptBox["b", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"3", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       RowBox[{
        FractionBox["1", "384"], " ", 
        SuperscriptBox["hx", "4"], " ", 
        RowBox[{
         SuperscriptBox["b", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"4", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       RowBox[{
        FractionBox["1", "3840"], " ", 
        SuperscriptBox["hx", "5"], " ", 
        RowBox[{
         SuperscriptBox["b", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"5", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       RowBox[{
        FractionBox["1", "46080"], " ", 
        SuperscriptBox["hx", "6"], " ", 
        RowBox[{
         SuperscriptBox["b", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"6", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "7"], " ", 
         RowBox[{
          SuperscriptBox["b", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"7", ",", "1"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "645120"]}], ")"}]}], "+", 
    RowBox[{
     FractionBox["1", "8"], 
     SuperscriptBox["hy", "2"], " ", 
     RowBox[{"(", " ", 
      RowBox[{
       RowBox[{
        SuperscriptBox["b", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "2"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"x", ",", "y"}], "]"}], "+", 
       RowBox[{
        FractionBox["1", "2"], " ", "hx", " ", 
        RowBox[{
         SuperscriptBox["b", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"1", ",", "2"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       RowBox[{
        FractionBox["1", "8"], " ", 
        SuperscriptBox["hx", "2"], " ", 
        RowBox[{
         SuperscriptBox["b", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"2", ",", "2"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       RowBox[{
        FractionBox["1", "48"], " ", 
        SuperscriptBox["hx", "3"], " ", 
        RowBox[{
         SuperscriptBox["b", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"3", ",", "2"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       RowBox[{
        FractionBox["1", "384"], " ", 
        SuperscriptBox["hx", "4"], " ", 
        RowBox[{
         SuperscriptBox["b", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"4", ",", "2"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       RowBox[{
        FractionBox["1", "3840"], " ", 
        SuperscriptBox["hx", "5"], " ", 
        RowBox[{
         SuperscriptBox["b", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"5", ",", "2"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "6"], " ", 
         RowBox[{
          SuperscriptBox["b", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"6", ",", "2"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "46080"], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "7"], " ", 
         RowBox[{
          SuperscriptBox["b", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"7", ",", "2"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "645120"]}], ")"}]}], "+", 
    RowBox[{
     FractionBox["1", "48"], 
     SuperscriptBox["hy", "3"], " ", 
     RowBox[{"(", " ", 
      RowBox[{
       RowBox[{
        SuperscriptBox["b", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "3"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"x", ",", "y"}], "]"}], "+", 
       RowBox[{
        FractionBox["1", "2"], " ", "hx", " ", 
        RowBox[{
         SuperscriptBox["b", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"1", ",", "3"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       RowBox[{
        FractionBox["1", "8"], " ", 
        SuperscriptBox["hx", "2"], " ", 
        RowBox[{
         SuperscriptBox["b", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"2", ",", "3"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       RowBox[{
        FractionBox["1", "48"], " ", 
        SuperscriptBox["hx", "3"], " ", 
        RowBox[{
         SuperscriptBox["b", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"3", ",", "3"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       RowBox[{
        FractionBox["1", "384"], " ", 
        SuperscriptBox["hx", "4"], " ", 
        RowBox[{
         SuperscriptBox["b", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"4", ",", "3"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       RowBox[{
        FractionBox["1", "3840"], " ", 
        SuperscriptBox["hx", "5"], " ", 
        RowBox[{
         SuperscriptBox["b", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"5", ",", "3"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "6"], " ", 
         RowBox[{
          SuperscriptBox["b", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"6", ",", "3"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "46080"], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "7"], " ", 
         RowBox[{
          SuperscriptBox["b", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"7", ",", "3"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "645120"]}], ")"}]}], "+", 
    RowBox[{
     FractionBox["1", "384"], 
     SuperscriptBox["hy", "4"], " ", 
     RowBox[{"(", " ", 
      RowBox[{
       RowBox[{
        SuperscriptBox["b", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "4"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"x", ",", "y"}], "]"}], "+", 
       RowBox[{
        FractionBox["1", "2"], " ", "hx", " ", 
        RowBox[{
         SuperscriptBox["b", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"1", ",", "4"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       RowBox[{
        FractionBox["1", "8"], " ", 
        SuperscriptBox["hx", "2"], " ", 
        RowBox[{
         SuperscriptBox["b", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"2", ",", "4"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       RowBox[{
        FractionBox["1", "48"], " ", 
        SuperscriptBox["hx", "3"], " ", 
        RowBox[{
         SuperscriptBox["b", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"3", ",", "4"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       RowBox[{
        FractionBox["1", "384"], " ", 
        SuperscriptBox["hx", "4"], " ", 
        RowBox[{
         SuperscriptBox["b", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"4", ",", "4"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "5"], " ", 
         RowBox[{
          SuperscriptBox["b", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"5", ",", "4"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "3840"], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "6"], " ", 
         RowBox[{
          SuperscriptBox["b", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"6", ",", "4"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "46080"], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "7"], " ", 
         RowBox[{
          SuperscriptBox["b", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"7", ",", "4"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "645120"]}], ")"}]}], "+", 
    RowBox[{
     FractionBox["1", "3840"], 
     SuperscriptBox["hy", "5"], " ", 
     RowBox[{"(", " ", 
      RowBox[{
       RowBox[{
        SuperscriptBox["b", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "5"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"x", ",", "y"}], "]"}], "+", 
       RowBox[{
        FractionBox["1", "2"], " ", "hx", " ", 
        RowBox[{
         SuperscriptBox["b", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"1", ",", "5"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       RowBox[{
        FractionBox["1", "8"], " ", 
        SuperscriptBox["hx", "2"], " ", 
        RowBox[{
         SuperscriptBox["b", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"2", ",", "5"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       RowBox[{
        FractionBox["1", "48"], " ", 
        SuperscriptBox["hx", "3"], " ", 
        RowBox[{
         SuperscriptBox["b", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"3", ",", "5"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "4"], " ", 
         RowBox[{
          SuperscriptBox["b", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"4", ",", "5"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "384"], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "5"], " ", 
         RowBox[{
          SuperscriptBox["b", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"5", ",", "5"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "3840"], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "6"], " ", 
         RowBox[{
          SuperscriptBox["b", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"6", ",", "5"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "46080"], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "7"], " ", 
         RowBox[{
          SuperscriptBox["b", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"7", ",", "5"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "645120"]}], ")"}]}], "+", 
    RowBox[{
     FractionBox["1", "46080"], 
     SuperscriptBox["hy", "6"], " ", 
     RowBox[{"(", " ", 
      RowBox[{
       RowBox[{
        SuperscriptBox["b", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "6"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"x", ",", "y"}], "]"}], "+", 
       RowBox[{
        FractionBox["1", "2"], " ", "hx", " ", 
        RowBox[{
         SuperscriptBox["b", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"1", ",", "6"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "2"], " ", 
         RowBox[{
          SuperscriptBox["b", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"2", ",", "6"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "8"], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "3"], " ", 
         RowBox[{
          SuperscriptBox["b", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"3", ",", "6"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "48"], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "4"], " ", 
         RowBox[{
          SuperscriptBox["b", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"4", ",", "6"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "384"], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "5"], " ", 
         RowBox[{
          SuperscriptBox["b", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"5", ",", "6"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "3840"], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "6"], " ", 
         RowBox[{
          SuperscriptBox["b", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"6", ",", "6"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "46080"], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "7"], " ", 
         RowBox[{
          SuperscriptBox["b", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"7", ",", "6"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "645120"]}], ")"}]}], "+", 
    RowBox[{
     FractionBox["1", "645120"], 
     SuperscriptBox["hy", "7"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        SuperscriptBox["b", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "7"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"x", ",", "y"}], "]"}], "+", 
       FractionBox[
        RowBox[{"hx", " ", 
         RowBox[{
          SuperscriptBox["b", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"1", ",", "7"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "2"], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "2"], " ", 
         RowBox[{
          SuperscriptBox["b", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"2", ",", "7"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "8"], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "3"], " ", 
         RowBox[{
          SuperscriptBox["b", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"3", ",", "7"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "48"], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "4"], " ", 
         RowBox[{
          SuperscriptBox["b", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"4", ",", "7"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "384"], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "5"], " ", 
         RowBox[{
          SuperscriptBox["b", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"5", ",", "7"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "3840"], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "6"], " ", 
         RowBox[{
          SuperscriptBox["b", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"6", ",", "7"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "46080"], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "7"], " ", 
         RowBox[{
          SuperscriptBox["b", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"7", ",", "7"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "645120"]}], ")"}]}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Bxmh2yph2", "=", 
   RowBox[{
    RowBox[{"b", "[", 
     RowBox[{"x", ",", "y"}], "]"}], "-", 
    RowBox[{
     FractionBox["1", "2"], "hx", " ", 
     RowBox[{
      SuperscriptBox["b", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"1", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "+", 
    RowBox[{
     FractionBox["1", "8"], " ", 
     SuperscriptBox["hx", "2"], " ", 
     RowBox[{
      SuperscriptBox["b", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"2", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "-", 
    RowBox[{
     FractionBox["1", "48"], " ", 
     SuperscriptBox["hx", "3"], " ", 
     RowBox[{
      SuperscriptBox["b", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"3", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "+", 
    RowBox[{
     FractionBox["1", "384"], " ", 
     SuperscriptBox["hx", "4"], " ", 
     RowBox[{
      SuperscriptBox["b", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"4", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "-", 
    RowBox[{
     FractionBox["1", "3840"], " ", 
     SuperscriptBox["hx", "5"], " ", 
     RowBox[{
      SuperscriptBox["b", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"5", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "+", 
    RowBox[{
     FractionBox["1", "46080"], " ", 
     SuperscriptBox["hx", "6"], " ", 
     RowBox[{
      SuperscriptBox["b", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"6", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "-", 
    FractionBox[
     RowBox[{
      SuperscriptBox["hx", "7"], " ", 
      RowBox[{
       SuperscriptBox["b", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"7", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}]}], "645120"], "+", 
    RowBox[{
     FractionBox["1", "2"], "hy", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        SuperscriptBox["b", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "1"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"x", ",", "y"}], "]"}], "-", 
       RowBox[{
        FractionBox["1", "2"], "hx", " ", 
        RowBox[{
         SuperscriptBox["b", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"1", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       RowBox[{
        FractionBox["1", "8"], " ", 
        SuperscriptBox["hx", "2"], " ", 
        RowBox[{
         SuperscriptBox["b", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"2", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "-", 
       RowBox[{
        FractionBox["1", "48"], " ", 
        SuperscriptBox["hx", "3"], " ", 
        RowBox[{
         SuperscriptBox["b", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"3", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       RowBox[{
        FractionBox["1", "384"], " ", 
        SuperscriptBox["hx", "4"], " ", 
        RowBox[{
         SuperscriptBox["b", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"4", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "-", 
       RowBox[{
        FractionBox["1", "3840"], " ", 
        SuperscriptBox["hx", "5"], " ", 
        RowBox[{
         SuperscriptBox["b", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"5", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       RowBox[{
        FractionBox["1", "46080"], " ", 
        SuperscriptBox["hx", "6"], " ", 
        RowBox[{
         SuperscriptBox["b", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"6", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "-", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "7"], " ", 
         RowBox[{
          SuperscriptBox["b", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"7", ",", "1"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "645120"]}], ")"}]}], "+", 
    RowBox[{
     FractionBox["1", "8"], 
     SuperscriptBox["hy", "2"], " ", 
     RowBox[{"(", " ", 
      RowBox[{
       RowBox[{
        SuperscriptBox["b", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "2"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"x", ",", "y"}], "]"}], "-", 
       RowBox[{
        FractionBox["1", "2"], " ", "hx", " ", 
        RowBox[{
         SuperscriptBox["b", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"1", ",", "2"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       RowBox[{
        FractionBox["1", "8"], " ", 
        SuperscriptBox["hx", "2"], " ", 
        RowBox[{
         SuperscriptBox["b", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"2", ",", "2"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "-", 
       RowBox[{
        FractionBox["1", "48"], " ", 
        SuperscriptBox["hx", "3"], " ", 
        RowBox[{
         SuperscriptBox["b", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"3", ",", "2"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       RowBox[{
        FractionBox["1", "384"], " ", 
        SuperscriptBox["hx", "4"], " ", 
        RowBox[{
         SuperscriptBox["b", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"4", ",", "2"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "-", 
       RowBox[{
        FractionBox["1", "3840"], " ", 
        SuperscriptBox["hx", "5"], " ", 
        RowBox[{
         SuperscriptBox["b", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"5", ",", "2"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "6"], " ", 
         RowBox[{
          SuperscriptBox["b", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"6", ",", "2"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "46080"], "-", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "7"], " ", 
         RowBox[{
          SuperscriptBox["b", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"7", ",", "2"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "645120"]}], ")"}]}], "+", 
    RowBox[{
     FractionBox["1", "48"], 
     SuperscriptBox["hy", "3"], " ", 
     RowBox[{"(", " ", 
      RowBox[{
       RowBox[{
        SuperscriptBox["b", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "3"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"x", ",", "y"}], "]"}], "-", 
       RowBox[{
        FractionBox["1", "2"], " ", "hx", " ", 
        RowBox[{
         SuperscriptBox["b", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"1", ",", "3"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       RowBox[{
        FractionBox["1", "8"], " ", 
        SuperscriptBox["hx", "2"], " ", 
        RowBox[{
         SuperscriptBox["b", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"2", ",", "3"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "-", 
       RowBox[{
        FractionBox["1", "48"], " ", 
        SuperscriptBox["hx", "3"], " ", 
        RowBox[{
         SuperscriptBox["b", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"3", ",", "3"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       RowBox[{
        FractionBox["1", "384"], " ", 
        SuperscriptBox["hx", "4"], " ", 
        RowBox[{
         SuperscriptBox["b", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"4", ",", "3"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "-", 
       RowBox[{
        FractionBox["1", "3840"], " ", 
        SuperscriptBox["hx", "5"], " ", 
        RowBox[{
         SuperscriptBox["b", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"5", ",", "3"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "6"], " ", 
         RowBox[{
          SuperscriptBox["b", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"6", ",", "3"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "46080"], "-", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "7"], " ", 
         RowBox[{
          SuperscriptBox["b", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"7", ",", "3"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "645120"]}], ")"}]}], "+", 
    RowBox[{
     FractionBox["1", "384"], 
     SuperscriptBox["hy", "4"], " ", 
     RowBox[{"(", " ", 
      RowBox[{
       RowBox[{
        SuperscriptBox["b", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "4"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"x", ",", "y"}], "]"}], "-", 
       RowBox[{
        FractionBox["1", "2"], " ", "hx", " ", 
        RowBox[{
         SuperscriptBox["b", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"1", ",", "4"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       RowBox[{
        FractionBox["1", "8"], " ", 
        SuperscriptBox["hx", "2"], " ", 
        RowBox[{
         SuperscriptBox["b", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"2", ",", "4"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "-", 
       RowBox[{
        FractionBox["1", "48"], " ", 
        SuperscriptBox["hx", "3"], " ", 
        RowBox[{
         SuperscriptBox["b", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"3", ",", "4"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       RowBox[{
        FractionBox["1", "384"], " ", 
        SuperscriptBox["hx", "4"], " ", 
        RowBox[{
         SuperscriptBox["b", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"4", ",", "4"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "-", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "5"], " ", 
         RowBox[{
          SuperscriptBox["b", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"5", ",", "4"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "3840"], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "6"], " ", 
         RowBox[{
          SuperscriptBox["b", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"6", ",", "4"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "46080"], "-", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "7"], " ", 
         RowBox[{
          SuperscriptBox["b", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"7", ",", "4"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "645120"]}], ")"}]}], "+", 
    RowBox[{
     FractionBox["1", "3840"], 
     SuperscriptBox["hy", "5"], " ", 
     RowBox[{"(", " ", 
      RowBox[{
       RowBox[{
        SuperscriptBox["b", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "5"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"x", ",", "y"}], "]"}], "-", 
       RowBox[{
        FractionBox["1", "2"], " ", "hx", " ", 
        RowBox[{
         SuperscriptBox["b", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"1", ",", "5"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       RowBox[{
        FractionBox["1", "8"], " ", 
        SuperscriptBox["hx", "2"], " ", 
        RowBox[{
         SuperscriptBox["b", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"2", ",", "5"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "-", 
       RowBox[{
        FractionBox["1", "48"], " ", 
        SuperscriptBox["hx", "3"], " ", 
        RowBox[{
         SuperscriptBox["b", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"3", ",", "5"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "4"], " ", 
         RowBox[{
          SuperscriptBox["b", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"4", ",", "5"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "384"], "-", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "5"], " ", 
         RowBox[{
          SuperscriptBox["b", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"5", ",", "5"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "3840"], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "6"], " ", 
         RowBox[{
          SuperscriptBox["b", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"6", ",", "5"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "46080"], "-", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "7"], " ", 
         RowBox[{
          SuperscriptBox["b", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"7", ",", "5"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "645120"]}], ")"}]}], "+", 
    RowBox[{
     FractionBox["1", "46080"], 
     SuperscriptBox["hy", "6"], " ", 
     RowBox[{"(", " ", 
      RowBox[{
       RowBox[{
        SuperscriptBox["b", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "6"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"x", ",", "y"}], "]"}], "-", 
       RowBox[{
        FractionBox["1", "2"], " ", "hx", " ", 
        RowBox[{
         SuperscriptBox["b", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"1", ",", "6"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "2"], " ", 
         RowBox[{
          SuperscriptBox["b", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"2", ",", "6"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "8"], "-", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "3"], " ", 
         RowBox[{
          SuperscriptBox["b", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"3", ",", "6"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "48"], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "4"], " ", 
         RowBox[{
          SuperscriptBox["b", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"4", ",", "6"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "384"], "-", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "5"], " ", 
         RowBox[{
          SuperscriptBox["b", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"5", ",", "6"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "3840"], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "6"], " ", 
         RowBox[{
          SuperscriptBox["b", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"6", ",", "6"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "46080"], "-", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "7"], " ", 
         RowBox[{
          SuperscriptBox["b", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"7", ",", "6"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "645120"]}], ")"}]}], "+", 
    RowBox[{
     FractionBox["1", "645120"], 
     SuperscriptBox["hy", "7"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        SuperscriptBox["b", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "7"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"x", ",", "y"}], "]"}], "-", 
       FractionBox[
        RowBox[{"hx", " ", 
         RowBox[{
          SuperscriptBox["b", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"1", ",", "7"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "2"], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "2"], " ", 
         RowBox[{
          SuperscriptBox["b", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"2", ",", "7"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "8"], "-", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "3"], " ", 
         RowBox[{
          SuperscriptBox["b", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"3", ",", "7"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "48"], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "4"], " ", 
         RowBox[{
          SuperscriptBox["b", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"4", ",", "7"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "384"], "-", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "5"], " ", 
         RowBox[{
          SuperscriptBox["b", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"5", ",", "7"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "3840"], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "6"], " ", 
         RowBox[{
          SuperscriptBox["b", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"6", ",", "7"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "46080"], "-", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "7"], " ", 
         RowBox[{
          SuperscriptBox["b", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"7", ",", "7"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "645120"]}], ")"}]}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Bxph2ymh2", "=", 
   RowBox[{
    RowBox[{"b", "[", 
     RowBox[{"x", ",", "y"}], "]"}], "+", 
    RowBox[{
     FractionBox["1", "2"], "hx", " ", 
     RowBox[{
      SuperscriptBox["b", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"1", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "+", 
    RowBox[{
     FractionBox["1", "8"], " ", 
     SuperscriptBox["hx", "2"], " ", 
     RowBox[{
      SuperscriptBox["b", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"2", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "+", 
    RowBox[{
     FractionBox["1", "48"], " ", 
     SuperscriptBox["hx", "3"], " ", 
     RowBox[{
      SuperscriptBox["b", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"3", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "+", 
    RowBox[{
     FractionBox["1", "384"], " ", 
     SuperscriptBox["hx", "4"], " ", 
     RowBox[{
      SuperscriptBox["b", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"4", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "+", 
    RowBox[{
     FractionBox["1", "3840"], " ", 
     SuperscriptBox["hx", "5"], " ", 
     RowBox[{
      SuperscriptBox["b", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"5", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "+", 
    RowBox[{
     FractionBox["1", "46080"], " ", 
     SuperscriptBox["hx", "6"], " ", 
     RowBox[{
      SuperscriptBox["b", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"6", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "+", 
    FractionBox[
     RowBox[{
      SuperscriptBox["hx", "7"], " ", 
      RowBox[{
       SuperscriptBox["b", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"7", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}]}], "645120"], "-", 
    RowBox[{
     FractionBox["1", "2"], "hy", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        SuperscriptBox["b", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "1"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"x", ",", "y"}], "]"}], "+", 
       RowBox[{
        FractionBox["1", "2"], "hx", " ", 
        RowBox[{
         SuperscriptBox["b", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"1", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       RowBox[{
        FractionBox["1", "8"], " ", 
        SuperscriptBox["hx", "2"], " ", 
        RowBox[{
         SuperscriptBox["b", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"2", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       RowBox[{
        FractionBox["1", "48"], " ", 
        SuperscriptBox["hx", "3"], " ", 
        RowBox[{
         SuperscriptBox["b", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"3", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       RowBox[{
        FractionBox["1", "384"], " ", 
        SuperscriptBox["hx", "4"], " ", 
        RowBox[{
         SuperscriptBox["b", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"4", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       RowBox[{
        FractionBox["1", "3840"], " ", 
        SuperscriptBox["hx", "5"], " ", 
        RowBox[{
         SuperscriptBox["b", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"5", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       RowBox[{
        FractionBox["1", "46080"], " ", 
        SuperscriptBox["hx", "6"], " ", 
        RowBox[{
         SuperscriptBox["b", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"6", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "7"], " ", 
         RowBox[{
          SuperscriptBox["b", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"7", ",", "1"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "645120"]}], ")"}]}], "+", 
    RowBox[{
     FractionBox["1", "8"], 
     SuperscriptBox["hy", "2"], " ", 
     RowBox[{"(", " ", 
      RowBox[{
       RowBox[{
        SuperscriptBox["b", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "2"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"x", ",", "y"}], "]"}], "+", 
       RowBox[{
        FractionBox["1", "2"], " ", "hx", " ", 
        RowBox[{
         SuperscriptBox["b", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"1", ",", "2"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       RowBox[{"8", " ", 
        SuperscriptBox["hx", "2"], " ", 
        RowBox[{
         SuperscriptBox["b", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"2", ",", "2"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       RowBox[{
        FractionBox["1", "48"], " ", 
        SuperscriptBox["hx", "3"], " ", 
        RowBox[{
         SuperscriptBox["b", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"3", ",", "2"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       RowBox[{
        FractionBox["1", "384"], " ", 
        SuperscriptBox["hx", "4"], " ", 
        RowBox[{
         SuperscriptBox["b", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"4", ",", "2"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       RowBox[{
        FractionBox["1", "3840"], " ", 
        SuperscriptBox["hx", "5"], " ", 
        RowBox[{
         SuperscriptBox["b", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"5", ",", "2"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "6"], " ", 
         RowBox[{
          SuperscriptBox["b", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"6", ",", "2"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "46080"], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "7"], " ", 
         RowBox[{
          SuperscriptBox["b", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"7", ",", "2"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "645120"]}], ")"}]}], "-", 
    RowBox[{
     FractionBox["1", "48"], 
     SuperscriptBox["hy", "3"], " ", 
     RowBox[{"(", " ", 
      RowBox[{
       RowBox[{
        SuperscriptBox["b", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "3"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"x", ",", "y"}], "]"}], "+", 
       RowBox[{
        FractionBox["1", "2"], " ", "hx", " ", 
        RowBox[{
         SuperscriptBox["b", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"1", ",", "3"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       RowBox[{
        FractionBox["1", "8"], " ", 
        SuperscriptBox["hx", "2"], " ", 
        RowBox[{
         SuperscriptBox["b", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"2", ",", "3"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       RowBox[{
        FractionBox["1", "48"], " ", 
        SuperscriptBox["hx", "3"], " ", 
        RowBox[{
         SuperscriptBox["b", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"3", ",", "3"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       RowBox[{
        FractionBox["1", "384"], " ", 
        SuperscriptBox["hx", "4"], " ", 
        RowBox[{
         SuperscriptBox["b", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"4", ",", "3"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       RowBox[{
        FractionBox["1", "3840"], " ", 
        SuperscriptBox["hx", "5"], " ", 
        RowBox[{
         SuperscriptBox["b", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"5", ",", "3"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "6"], " ", 
         RowBox[{
          SuperscriptBox["b", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"6", ",", "3"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "46080"], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "7"], " ", 
         RowBox[{
          SuperscriptBox["b", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"7", ",", "3"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "645120"]}], ")"}]}], "+", 
    RowBox[{
     FractionBox["1", "384"], 
     SuperscriptBox["hy", "4"], " ", 
     RowBox[{"(", " ", 
      RowBox[{
       RowBox[{
        SuperscriptBox["b", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "4"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"x", ",", "y"}], "]"}], "+", 
       RowBox[{
        FractionBox["1", "2"], " ", "hx", " ", 
        RowBox[{
         SuperscriptBox["b", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"1", ",", "4"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       RowBox[{
        FractionBox["1", "8"], " ", 
        SuperscriptBox["hx", "2"], " ", 
        RowBox[{
         SuperscriptBox["b", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"2", ",", "4"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       RowBox[{
        FractionBox["1", "48"], " ", 
        SuperscriptBox["hx", "3"], " ", 
        RowBox[{
         SuperscriptBox["b", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"3", ",", "4"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       RowBox[{
        FractionBox["1", "384"], " ", 
        SuperscriptBox["hx", "4"], " ", 
        RowBox[{
         SuperscriptBox["b", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"4", ",", "4"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "5"], " ", 
         RowBox[{
          SuperscriptBox["b", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"5", ",", "4"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "3840"], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "6"], " ", 
         RowBox[{
          SuperscriptBox["b", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"6", ",", "4"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "46080"], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "7"], " ", 
         RowBox[{
          SuperscriptBox["b", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"7", ",", "4"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "645120"]}], ")"}]}], "-", 
    RowBox[{
     FractionBox["1", "3840"], 
     SuperscriptBox["hy", "5"], " ", 
     RowBox[{"(", " ", 
      RowBox[{
       RowBox[{
        SuperscriptBox["b", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "5"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"x", ",", "y"}], "]"}], "+", 
       RowBox[{
        FractionBox["1", "2"], " ", "hx", " ", 
        RowBox[{
         SuperscriptBox["b", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"1", ",", "5"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       RowBox[{
        FractionBox["1", "8"], " ", 
        SuperscriptBox["hx", "2"], " ", 
        RowBox[{
         SuperscriptBox["b", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"2", ",", "5"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       RowBox[{
        FractionBox["1", "48"], " ", 
        SuperscriptBox["hx", "3"], " ", 
        RowBox[{
         SuperscriptBox["b", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"3", ",", "5"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "4"], " ", 
         RowBox[{
          SuperscriptBox["b", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"4", ",", "5"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "384"], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "5"], " ", 
         RowBox[{
          SuperscriptBox["b", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"5", ",", "5"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "3840"], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "6"], " ", 
         RowBox[{
          SuperscriptBox["b", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"6", ",", "5"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "46080"], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "7"], " ", 
         RowBox[{
          SuperscriptBox["b", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"7", ",", "5"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "645120"]}], ")"}]}], "+", 
    RowBox[{
     FractionBox["1", "46080"], 
     SuperscriptBox["hy", "6"], " ", 
     RowBox[{"(", " ", 
      RowBox[{
       RowBox[{
        SuperscriptBox["b", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "6"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"x", ",", "y"}], "]"}], "+", 
       RowBox[{
        FractionBox["1", "2"], " ", "hx", " ", 
        RowBox[{
         SuperscriptBox["b", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"1", ",", "6"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "2"], " ", 
         RowBox[{
          SuperscriptBox["b", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"2", ",", "6"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "8"], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "3"], " ", 
         RowBox[{
          SuperscriptBox["b", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"3", ",", "6"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "48"], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "4"], " ", 
         RowBox[{
          SuperscriptBox["b", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"4", ",", "6"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "384"], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "5"], " ", 
         RowBox[{
          SuperscriptBox["b", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"5", ",", "6"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "3840"], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "6"], " ", 
         RowBox[{
          SuperscriptBox["b", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"6", ",", "6"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "46080"], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "7"], " ", 
         RowBox[{
          SuperscriptBox["b", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"7", ",", "6"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "645120"]}], ")"}]}], "-", 
    RowBox[{
     FractionBox["1", "645120"], 
     SuperscriptBox["hy", "7"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        SuperscriptBox["b", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "7"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"x", ",", "y"}], "]"}], "+", 
       FractionBox[
        RowBox[{"hx", " ", 
         RowBox[{
          SuperscriptBox["b", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"1", ",", "7"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "2"], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "2"], " ", 
         RowBox[{
          SuperscriptBox["b", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"2", ",", "7"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "8"], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "3"], " ", 
         RowBox[{
          SuperscriptBox["b", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"3", ",", "7"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "48"], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "4"], " ", 
         RowBox[{
          SuperscriptBox["b", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"4", ",", "7"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "384"], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "5"], " ", 
         RowBox[{
          SuperscriptBox["b", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"5", ",", "7"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "3840"], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "6"], " ", 
         RowBox[{
          SuperscriptBox["b", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"6", ",", "7"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "46080"], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "7"], " ", 
         RowBox[{
          SuperscriptBox["b", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"7", ",", "7"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "645120"]}], ")"}]}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Bxmh2ymh2", "=", 
   RowBox[{
    RowBox[{"b", "[", 
     RowBox[{"x", ",", "y"}], "]"}], "-", 
    RowBox[{
     FractionBox["1", "2"], "hx", " ", 
     RowBox[{
      SuperscriptBox["b", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"1", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "+", 
    RowBox[{
     FractionBox["1", "8"], " ", 
     SuperscriptBox["hx", "2"], " ", 
     RowBox[{
      SuperscriptBox["b", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"2", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "-", 
    RowBox[{
     FractionBox["1", "48"], " ", 
     SuperscriptBox["hx", "3"], " ", 
     RowBox[{
      SuperscriptBox["b", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"3", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "+", 
    RowBox[{
     FractionBox["1", "384"], " ", 
     SuperscriptBox["hx", "4"], " ", 
     RowBox[{
      SuperscriptBox["b", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"4", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "-", 
    RowBox[{
     FractionBox["1", "3840"], " ", 
     SuperscriptBox["hx", "5"], " ", 
     RowBox[{
      SuperscriptBox["b", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"5", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "+", 
    RowBox[{
     FractionBox["1", "46080"], " ", 
     SuperscriptBox["hx", "6"], " ", 
     RowBox[{
      SuperscriptBox["b", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"6", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "-", 
    FractionBox[
     RowBox[{
      SuperscriptBox["hx", "7"], " ", 
      RowBox[{
       SuperscriptBox["b", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"7", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}]}], "645120"], "-", 
    RowBox[{
     FractionBox["1", "2"], "hy", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        SuperscriptBox["b", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "1"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"x", ",", "y"}], "]"}], "-", 
       RowBox[{
        FractionBox["1", "2"], "hx", " ", 
        RowBox[{
         SuperscriptBox["b", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"1", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       RowBox[{
        FractionBox["1", "8"], " ", 
        SuperscriptBox["hx", "2"], " ", 
        RowBox[{
         SuperscriptBox["b", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"2", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "-", 
       RowBox[{
        FractionBox["1", "48"], " ", 
        SuperscriptBox["hx", "3"], " ", 
        RowBox[{
         SuperscriptBox["b", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"3", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       RowBox[{
        FractionBox["1", "384"], " ", 
        SuperscriptBox["hx", "4"], " ", 
        RowBox[{
         SuperscriptBox["b", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"4", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "-", 
       RowBox[{
        FractionBox["1", "3840"], " ", 
        SuperscriptBox["hx", "5"], " ", 
        RowBox[{
         SuperscriptBox["b", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"5", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       RowBox[{
        FractionBox["1", "46080"], " ", 
        SuperscriptBox["hx", "6"], " ", 
        RowBox[{
         SuperscriptBox["b", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"6", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "-", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "7"], " ", 
         RowBox[{
          SuperscriptBox["b", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"7", ",", "1"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "645120"]}], ")"}]}], "+", 
    RowBox[{
     FractionBox["1", "8"], 
     SuperscriptBox["hy", "2"], " ", 
     RowBox[{"(", " ", 
      RowBox[{
       RowBox[{
        SuperscriptBox["b", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "2"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"x", ",", "y"}], "]"}], "-", 
       RowBox[{
        FractionBox["1", "2"], " ", "hx", " ", 
        RowBox[{
         SuperscriptBox["b", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"1", ",", "2"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       RowBox[{
        FractionBox["1", "8"], " ", 
        SuperscriptBox["hx", "2"], " ", 
        RowBox[{
         SuperscriptBox["b", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"2", ",", "2"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "-", 
       RowBox[{
        FractionBox["1", "48"], " ", 
        SuperscriptBox["hx", "3"], " ", 
        RowBox[{
         SuperscriptBox["b", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"3", ",", "2"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       RowBox[{
        FractionBox["1", "384"], " ", 
        SuperscriptBox["hx", "4"], " ", 
        RowBox[{
         SuperscriptBox["b", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"4", ",", "2"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "-", 
       RowBox[{
        FractionBox["1", "3840"], " ", 
        SuperscriptBox["hx", "5"], " ", 
        RowBox[{
         SuperscriptBox["b", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"5", ",", "2"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "6"], " ", 
         RowBox[{
          SuperscriptBox["b", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"6", ",", "2"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "46080"], "-", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "7"], " ", 
         RowBox[{
          SuperscriptBox["b", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"7", ",", "2"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "645120"]}], ")"}]}], "-", 
    RowBox[{
     FractionBox["1", "48"], 
     SuperscriptBox["hy", "3"], " ", 
     RowBox[{"(", " ", 
      RowBox[{
       RowBox[{
        SuperscriptBox["b", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "3"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"x", ",", "y"}], "]"}], "-", 
       RowBox[{
        FractionBox["1", "2"], " ", "hx", " ", 
        RowBox[{
         SuperscriptBox["b", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"1", ",", "3"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       RowBox[{
        FractionBox["1", "8"], " ", 
        SuperscriptBox["hx", "2"], " ", 
        RowBox[{
         SuperscriptBox["b", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"2", ",", "3"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "-", 
       RowBox[{
        FractionBox["1", "48"], " ", 
        SuperscriptBox["hx", "3"], " ", 
        RowBox[{
         SuperscriptBox["b", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"3", ",", "3"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       RowBox[{
        FractionBox["1", "384"], " ", 
        SuperscriptBox["hx", "4"], " ", 
        RowBox[{
         SuperscriptBox["b", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"4", ",", "3"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "-", 
       RowBox[{
        FractionBox["1", "3840"], " ", 
        SuperscriptBox["hx", "5"], " ", 
        RowBox[{
         SuperscriptBox["b", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"5", ",", "3"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "6"], " ", 
         RowBox[{
          SuperscriptBox["b", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"6", ",", "3"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "46080"], "-", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "7"], " ", 
         RowBox[{
          SuperscriptBox["b", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"7", ",", "3"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "645120"]}], ")"}]}], "+", 
    RowBox[{
     FractionBox["1", "384"], 
     SuperscriptBox["hy", "4"], " ", 
     RowBox[{"(", " ", 
      RowBox[{
       RowBox[{
        SuperscriptBox["b", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "4"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"x", ",", "y"}], "]"}], "-", 
       RowBox[{
        FractionBox["1", "2"], " ", "hx", " ", 
        RowBox[{
         SuperscriptBox["b", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"1", ",", "4"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       RowBox[{
        FractionBox["1", "8"], " ", 
        SuperscriptBox["hx", "2"], " ", 
        RowBox[{
         SuperscriptBox["b", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"2", ",", "4"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "-", 
       RowBox[{
        FractionBox["1", "48"], " ", 
        SuperscriptBox["hx", "3"], " ", 
        RowBox[{
         SuperscriptBox["b", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"3", ",", "4"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       RowBox[{
        FractionBox["1", "384"], " ", 
        SuperscriptBox["hx", "4"], " ", 
        RowBox[{
         SuperscriptBox["b", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"4", ",", "4"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "-", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "5"], " ", 
         RowBox[{
          SuperscriptBox["b", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"5", ",", "4"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "3840"], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "6"], " ", 
         RowBox[{
          SuperscriptBox["b", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"6", ",", "4"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "46080"], "-", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "7"], " ", 
         RowBox[{
          SuperscriptBox["b", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"7", ",", "4"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "645120"]}], ")"}]}], "-", 
    RowBox[{
     FractionBox["1", "3840"], 
     SuperscriptBox["hy", "5"], " ", 
     RowBox[{"(", " ", 
      RowBox[{
       RowBox[{
        SuperscriptBox["b", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "5"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"x", ",", "y"}], "]"}], "-", 
       RowBox[{
        FractionBox["1", "2"], " ", "hx", " ", 
        RowBox[{
         SuperscriptBox["b", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"1", ",", "5"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       RowBox[{
        FractionBox["1", "8"], " ", 
        SuperscriptBox["hx", "2"], " ", 
        RowBox[{
         SuperscriptBox["b", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"2", ",", "5"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "-", 
       RowBox[{
        FractionBox["1", "48"], " ", 
        SuperscriptBox["hx", "3"], " ", 
        RowBox[{
         SuperscriptBox["b", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"3", ",", "5"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "4"], " ", 
         RowBox[{
          SuperscriptBox["b", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"4", ",", "5"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "384"], "-", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "5"], " ", 
         RowBox[{
          SuperscriptBox["b", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"5", ",", "5"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "3840"], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "6"], " ", 
         RowBox[{
          SuperscriptBox["b", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"6", ",", "5"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "46080"], "-", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "7"], " ", 
         RowBox[{
          SuperscriptBox["b", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"7", ",", "5"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "645120"]}], ")"}]}], "+", 
    RowBox[{
     FractionBox["1", "46080"], 
     SuperscriptBox["hy", "6"], " ", 
     RowBox[{"(", " ", 
      RowBox[{
       RowBox[{
        SuperscriptBox["b", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "6"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"x", ",", "y"}], "]"}], "-", 
       RowBox[{
        FractionBox["1", "2"], " ", "hx", " ", 
        RowBox[{
         SuperscriptBox["b", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"1", ",", "6"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "2"], " ", 
         RowBox[{
          SuperscriptBox["b", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"2", ",", "6"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "8"], "-", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "3"], " ", 
         RowBox[{
          SuperscriptBox["b", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"3", ",", "6"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "48"], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "4"], " ", 
         RowBox[{
          SuperscriptBox["b", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"4", ",", "6"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "384"], "-", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "5"], " ", 
         RowBox[{
          SuperscriptBox["b", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"5", ",", "6"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "3840"], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "6"], " ", 
         RowBox[{
          SuperscriptBox["b", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"6", ",", "6"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "46080"], "-", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "7"], " ", 
         RowBox[{
          SuperscriptBox["b", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"7", ",", "6"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "645120"]}], ")"}]}], "-", 
    RowBox[{
     FractionBox["1", "645120"], 
     SuperscriptBox["hy", "7"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        SuperscriptBox["b", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "7"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"x", ",", "y"}], "]"}], "-", 
       FractionBox[
        RowBox[{"hx", " ", 
         RowBox[{
          SuperscriptBox["b", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"1", ",", "7"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "2"], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "2"], " ", 
         RowBox[{
          SuperscriptBox["b", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"2", ",", "7"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "8"], "-", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "3"], " ", 
         RowBox[{
          SuperscriptBox["b", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"3", ",", "7"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "48"], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "4"], " ", 
         RowBox[{
          SuperscriptBox["b", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"4", ",", "7"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "384"], "-", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "5"], " ", 
         RowBox[{
          SuperscriptBox["b", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"5", ",", "7"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "3840"], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "6"], " ", 
         RowBox[{
          SuperscriptBox["b", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"6", ",", "7"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "46080"], "-", 
       FractionBox[
        RowBox[{
         SuperscriptBox["hx", "7"], " ", 
         RowBox[{
          SuperscriptBox["b", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"7", ",", "7"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "645120"]}], ")"}]}]}]}], 
  ";"}]}], "Input",
 PageWidth->Infinity,
 CellChangeTimes->{{3.613866490885026*^9, 3.6138665954258957`*^9}, {
  3.613866626221458*^9, 3.6138667152022057`*^9}, {3.6138667777024097`*^9, 
  3.6138668087644777`*^9}, {3.617143915570266*^9, 3.61714397136719*^9}, {
  3.617144068896731*^9, 3.617144158149376*^9}, {3.617144286869033*^9, 
  3.617144406980526*^9}, {3.617144501635133*^9, 3.617144502425199*^9}, {
  3.617144545301098*^9, 3.617144546697899*^9}, {3.617144583337682*^9, 
  3.617144587365933*^9}, {3.617144628943575*^9, 3.617145409227063*^9}, {
  3.617145608502179*^9, 3.617145770725322*^9}, {3.6171458558262653`*^9, 
  3.617145953795567*^9}, {3.617146140633169*^9, 3.617146897353413*^9}, {
  3.617147257127858*^9, 3.617147277176034*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Aymh2", "=", 
   RowBox[{
    RowBox[{"a", "[", 
     RowBox[{"x", ",", "y"}], "]"}], "-", 
    RowBox[{
     FractionBox["1", "2"], " ", "hy", " ", 
     RowBox[{
      SuperscriptBox["a", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"0", ",", "1"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "+", 
    RowBox[{
     FractionBox["1", "8"], " ", 
     SuperscriptBox["hy", "2"], " ", 
     RowBox[{
      SuperscriptBox["a", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"0", ",", "2"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "-", 
    RowBox[{
     FractionBox["1", "48"], " ", 
     SuperscriptBox["hy", "3"], " ", 
     RowBox[{
      SuperscriptBox["a", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"0", ",", "3"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "+", 
    RowBox[{
     FractionBox["1", "384"], " ", 
     SuperscriptBox["hy", "4"], " ", 
     RowBox[{
      SuperscriptBox["a", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"0", ",", "4"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "-", 
    FractionBox[
     RowBox[{
      SuperscriptBox["hy", "5"], " ", 
      RowBox[{
       SuperscriptBox["a", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "5"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}]}], "3840"], "+", 
    FractionBox[
     RowBox[{
      SuperscriptBox["hy", "6"], " ", 
      RowBox[{
       SuperscriptBox["a", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "6"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}]}], "46080"], "-", 
    FractionBox[
     RowBox[{
      SuperscriptBox["hy", "7"], " ", 
      RowBox[{
       SuperscriptBox["a", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "7"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}]}], "645120"]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Ayph2", "=", 
   RowBox[{
    RowBox[{"a", "[", 
     RowBox[{"x", ",", "y"}], "]"}], "+", 
    RowBox[{
     FractionBox["1", "2"], " ", "hy", " ", 
     RowBox[{
      SuperscriptBox["a", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"0", ",", "1"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "+", 
    RowBox[{
     FractionBox["1", "8"], " ", 
     SuperscriptBox["hy", "2"], " ", 
     RowBox[{
      SuperscriptBox["a", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"0", ",", "2"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "+", 
    RowBox[{
     FractionBox["1", "48"], " ", 
     SuperscriptBox["hy", "3"], " ", 
     RowBox[{
      SuperscriptBox["a", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"0", ",", "3"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "+", 
    RowBox[{
     FractionBox["1", "384"], " ", 
     SuperscriptBox["hy", "4"], " ", 
     RowBox[{
      SuperscriptBox["a", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"0", ",", "4"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "+", 
    FractionBox[
     RowBox[{
      SuperscriptBox["hy", "5"], " ", 
      RowBox[{
       SuperscriptBox["a", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "5"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}]}], "3840"], "+", 
    FractionBox[
     RowBox[{
      SuperscriptBox["hy", "6"], " ", 
      RowBox[{
       SuperscriptBox["a", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "6"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}]}], "46080"], "+", 
    FractionBox[
     RowBox[{
      SuperscriptBox["hy", "7"], " ", 
      RowBox[{
       SuperscriptBox["a", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "7"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}]}], "645120"]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Axmh2", "=", 
   RowBox[{
    RowBox[{"a", "[", 
     RowBox[{"x", ",", "y"}], "]"}], "-", 
    RowBox[{
     FractionBox["1", "2"], " ", "hx", " ", 
     RowBox[{
      SuperscriptBox["a", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"1", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "+", 
    RowBox[{
     FractionBox["1", "8"], " ", 
     SuperscriptBox["hx", "2"], " ", 
     RowBox[{
      SuperscriptBox["a", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"2", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "-", 
    RowBox[{
     FractionBox["1", "48"], " ", 
     SuperscriptBox["hx", "3"], " ", 
     RowBox[{
      SuperscriptBox["a", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"3", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "+", 
    RowBox[{
     FractionBox["1", "384"], " ", 
     SuperscriptBox["hx", "4"], " ", 
     RowBox[{
      SuperscriptBox["a", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"4", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "-", 
    FractionBox[
     RowBox[{
      SuperscriptBox["hx", "5"], " ", 
      RowBox[{
       SuperscriptBox["a", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"5", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}]}], "3840"], "+", 
    FractionBox[
     RowBox[{
      SuperscriptBox["hx", "6"], " ", 
      RowBox[{
       SuperscriptBox["a", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"6", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}]}], "46080"], "-", 
    FractionBox[
     RowBox[{
      SuperscriptBox["hx", "7"], " ", 
      RowBox[{
       SuperscriptBox["a", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"7", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}]}], "645120"]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Axph2", "=", 
   RowBox[{
    RowBox[{"a", "[", 
     RowBox[{"x", ",", "y"}], "]"}], "+", 
    RowBox[{
     FractionBox["1", "2"], " ", "hx", " ", 
     RowBox[{
      SuperscriptBox["a", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"1", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "+", 
    RowBox[{
     FractionBox["1", "8"], " ", 
     SuperscriptBox["hx", "2"], " ", 
     RowBox[{
      SuperscriptBox["a", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"2", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "+", 
    RowBox[{
     FractionBox["1", "48"], " ", 
     SuperscriptBox["hx", "3"], " ", 
     RowBox[{
      SuperscriptBox["a", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"3", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "+", 
    RowBox[{
     FractionBox["1", "384"], " ", 
     SuperscriptBox["hx", "4"], " ", 
     RowBox[{
      SuperscriptBox["a", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"4", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "+", 
    FractionBox[
     RowBox[{
      SuperscriptBox["hx", "5"], " ", 
      RowBox[{
       SuperscriptBox["a", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"5", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}]}], "3840"], "+", 
    FractionBox[
     RowBox[{
      SuperscriptBox["hx", "6"], " ", 
      RowBox[{
       SuperscriptBox["a", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"6", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}]}], "46080"], "+", 
    FractionBox[
     RowBox[{
      SuperscriptBox["hx", "7"], " ", 
      RowBox[{
       SuperscriptBox["a", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"7", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}]}], "645120"]}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.6171445128858547`*^9, 3.617144516800233*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", "Test", " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   SubscriptBox["u", "x"], "*)"}], 
  RowBox[{
   RowBox[{
    RowBox[{
     FractionBox[
      RowBox[{"Uxph", "-", "Uxmh"}], 
      RowBox[{"2", "hx"}]], "//", "Simplify"}], ";"}], "\[IndentingNewLine]", 
   
   RowBox[{"(*", " ", 
    SubscriptBox["u", "y"], "*)"}], 
   RowBox[{
    RowBox[{
     FractionBox[
      RowBox[{"Uyph", "-", "Uymh"}], 
      RowBox[{"2", "hy"}]], "//", "Simplify"}], ";"}], "\[IndentingNewLine]", 
   
   RowBox[{"(*", " ", 
    SubscriptBox["u", "x"], "*)"}], 
   RowBox[{
    RowBox[{
     FractionBox[
      RowBox[{"Uxph", "-", 
       RowBox[{"u", "[", 
        RowBox[{"x", ",", "y"}], "]"}]}], "hx"], "//", "Expand"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    SubscriptBox["u", "x"], "*)"}], 
   RowBox[{
    RowBox[{
     FractionBox[
      RowBox[{
       RowBox[{"u", "[", 
        RowBox[{"x", ",", "y"}], "]"}], "-", "Uxmh"}], "hx"], "//", 
     "Expand"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    SubscriptBox["u", "xy"], "*)"}], 
   RowBox[{
    RowBox[{
     RowBox[{
      FractionBox["1", 
       RowBox[{"2", "hy"}]], 
      RowBox[{"(", 
       RowBox[{
        FractionBox[
         RowBox[{"Uxphyph", "-", "Uxmhyph"}], 
         RowBox[{"2", "hx"}]], "-", 
        FractionBox[
         RowBox[{"Uxphymh", "-", "Uxmhymh"}], 
         RowBox[{"2", "hx"}]]}], ")"}]}], "//", "Expand"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    SubscriptBox["u", "xx"], "*)"}], 
   RowBox[{
    RowBox[{
     FractionBox[
      RowBox[{"Uxph", "-", 
       RowBox[{"2", 
        RowBox[{"u", "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", "Uxmh"}], 
      SuperscriptBox["hx", "2"]], "//", "FullSimplify"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    SubscriptBox["u", "xxy"], "*)"}], 
   RowBox[{
    RowBox[{
     RowBox[{
      FractionBox["1", 
       RowBox[{"2", "hy"}]], 
      RowBox[{"(", 
       RowBox[{
        FractionBox[
         RowBox[{"Uxphyph", "-", 
          RowBox[{"2", "Uyph"}], "+", "Uxmhyph"}], 
         SuperscriptBox["hx", "2"]], "-", 
        FractionBox[
         RowBox[{"Uxphymh", "-", 
          RowBox[{"2", "Uymh"}], "+", "Uxmhymh"}], 
         SuperscriptBox["hx", "2"]]}], ")"}]}], "//", "Expand"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    SubscriptBox["u", "yy"], "*)"}], 
   RowBox[{
    RowBox[{
     FractionBox[
      RowBox[{"Uyph", "-", 
       RowBox[{"2", 
        RowBox[{"u", "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", "Uymh"}], 
      SuperscriptBox["hy", "2"]], "//", "Simplify"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    SubscriptBox["u", "xyy"], "*)"}], 
   RowBox[{
    RowBox[{
     RowBox[{
      FractionBox["1", 
       RowBox[{"2", "hx"}]], 
      RowBox[{"(", 
       RowBox[{
        FractionBox[
         RowBox[{"Uxphyph", "-", 
          RowBox[{"2", "Uxph"}], "+", "Uxphymh"}], 
         SuperscriptBox["hy", "2"]], "-", 
        FractionBox[
         RowBox[{"Uxmhyph", "-", 
          RowBox[{"2", "Uxmh"}], "+", "Uxmhymh"}], 
         SuperscriptBox["hy", "2"]]}], ")"}]}], "//", "Expand"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    SubscriptBox["u", "xxyy"], "*)"}], 
   RowBox[{
    RowBox[{
     FractionBox["1", 
      SuperscriptBox["hx", "2"]], 
     RowBox[{"(", 
      RowBox[{
       FractionBox[
        RowBox[{"Uxphyph", "-", 
         RowBox[{"2", "Uxph"}], "+", "Uxphymh"}], 
        SuperscriptBox["hy", "2"]], "-", 
       RowBox[{"2", 
        FractionBox[
         RowBox[{"Uyph", "-", 
          RowBox[{"2", 
           RowBox[{"u", "[", 
            RowBox[{"x", ",", "y"}], "]"}]}], "+", "Uymh"}], 
         SuperscriptBox["hy", "2"]]}], "+", 
       FractionBox[
        RowBox[{"Uxmhyph", "-", 
         RowBox[{"2", "Uxmh"}], "+", "Uxmhymh"}], 
        SuperscriptBox["hy", "2"]]}], ")"}]}], "//", "Expand"}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    SubscriptBox["a", "x"], "*)"}], 
   RowBox[{
    RowBox[{
     FractionBox[
      RowBox[{"Axph2", "-", "Axmh2"}], "hx"], "//", "Expand"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    SubscriptBox["a", "xx"], "*)"}], 
   RowBox[{
    RowBox[{
     FractionBox[
      RowBox[{"Axph2", "-", 
       RowBox[{"2", 
        RowBox[{"a", "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", "Axmh2"}], 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"hx", "/", "2"}], ")"}], "2"]], "//", "Expand"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    SubscriptBox["b", "x"], "*)"}], 
   RowBox[{
    RowBox[{
     FractionBox[
      RowBox[{"Bxph2", "-", "Bxmh2"}], "hx"], "//", "Expand"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    SubscriptBox["b", "xx"], "*)"}], 
   RowBox[{
    RowBox[{
     FractionBox[
      RowBox[{"Bxph2", "-", 
       RowBox[{"2", 
        RowBox[{"b", "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", "Bxmh2"}], 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"hx", "/", "2"}], ")"}], "2"]], "//", "Expand"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    SubscriptBox["b", "xy"], "*)"}], 
   RowBox[{
    RowBox[{
     RowBox[{
      FractionBox["1", "hy"], 
      RowBox[{"(", 
       RowBox[{
        FractionBox[
         RowBox[{"Bxph2yph2", "-", "Bxmh2yph2"}], "hx"], "-", 
        FractionBox[
         RowBox[{"Bxph2ymh2", "-", "Bxmh2ymh2"}], "hx"]}], ")"}]}], "//", 
     "Expand"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    SubscriptBox["b", "xxy"], "*)"}], 
   RowBox[{
    RowBox[{
     RowBox[{
      FractionBox["1", "hy"], 
      RowBox[{"(", 
       RowBox[{
        FractionBox[
         RowBox[{"Bxph2yph2", "-", 
          RowBox[{"2", "Byph2"}], "+", "Bxmh2yph2"}], 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"hx", "/", "2"}], ")"}], "2"]], "-", 
        FractionBox[
         RowBox[{"Bxph2ymh2", "-", 
          RowBox[{"2", "Bymh2"}], "+", "Bxmh2ymh2"}], 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"hx", "/", "2"}], ")"}], "2"]]}], ")"}]}], "//", 
     "Expand"}], ";"}], "\[IndentingNewLine]"}]}]], "Input",
 PageWidth->Infinity,
 CellChangeTimes->{{3.613866081375498*^9, 3.613866117192964*^9}, {
   3.6138661683425617`*^9, 3.61386617726527*^9}, 3.613866284043096*^9, 
   3.613866338189489*^9, {3.613866731217614*^9, 3.613866792817518*^9}, {
   3.613866959736083*^9, 3.613866960252825*^9}, {3.613867318808716*^9, 
   3.613867379502792*^9}, {3.6169584610791063`*^9, 3.616958481395762*^9}, {
   3.61695851606384*^9, 3.6169585173938932`*^9}, {3.616964188158074*^9, 
   3.616964212445108*^9}, {3.6169642612393627`*^9, 3.616964314707543*^9}, {
   3.616964356585387*^9, 3.616964383639942*^9}, {3.6169644259622993`*^9, 
   3.616964433962442*^9}, {3.616964906072894*^9, 3.616964914827677*^9}, {
   3.616965230035726*^9, 3.616965330183031*^9}, {3.616965410347527*^9, 
   3.616965454613559*^9}, {3.6171244594104958`*^9, 3.617124464468053*^9}, 
   3.617124529573138*^9, {3.617124575173552*^9, 3.61712459143329*^9}, {
   3.617142857567824*^9, 3.6171429927994137`*^9}, 3.617143212154467*^9, {
   3.6171433762254553`*^9, 3.6171434005944567`*^9}, {3.617143485527699*^9, 
   3.6171435741081877`*^9}, {3.6171440314663153`*^9, 3.617144036724884*^9}, {
   3.6171474539613857`*^9, 3.617147494304941*^9}, {3.6171477017433033`*^9, 
   3.617147702430538*^9}, {3.61715035860317*^9, 3.617150484350339*^9}, {
   3.6171505310020123`*^9, 3.6171506008616543`*^9}, {3.6171507102075577`*^9, 
   3.617150803605249*^9}, {3.617150848017222*^9, 3.617151007264221*^9}, {
   3.6171510639742527`*^9, 3.617151157110424*^9}, {3.617151302190402*^9, 
   3.6171513116942987`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SuperscriptBox["u", 
    TagBox[
     RowBox[{"(", 
      RowBox[{"2", ",", "2"}], ")"}],
     Derivative],
    MultilineFunction->None], "[", 
   RowBox[{"x", ",", "y"}], "]"}], "+", 
  RowBox[{
   FractionBox["1", "12"], " ", 
   SuperscriptBox["hy", "2"], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"2", ",", "4"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "360"], " ", 
   SuperscriptBox["hy", "4"], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"2", ",", "6"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "12"], " ", 
   SuperscriptBox["hx", "2"], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"4", ",", "2"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "144"], " ", 
   SuperscriptBox["hx", "2"], " ", 
   SuperscriptBox["hy", "2"], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"4", ",", "4"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  FractionBox[
   RowBox[{
    SuperscriptBox["hx", "2"], " ", 
    SuperscriptBox["hy", "4"], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"4", ",", "6"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "4320"], "+", 
  RowBox[{
   FractionBox["1", "360"], " ", 
   SuperscriptBox["hx", "4"], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"6", ",", "2"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  FractionBox[
   RowBox[{
    SuperscriptBox["hx", "4"], " ", 
    SuperscriptBox["hy", "2"], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"6", ",", "4"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "4320"], "+", 
  FractionBox[
   RowBox[{
    SuperscriptBox["hx", "4"], " ", 
    SuperscriptBox["hy", "4"], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"6", ",", "6"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "129600"]}]], "Output",
 CellChangeTimes->{{3.617151112087947*^9, 3.617151157807625*^9}, 
   3.617151313341589*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Axph2", " ", 
         FractionBox[
          RowBox[{"Uxph", "-", 
           RowBox[{"u", "[", 
            RowBox[{"x", ",", "y"}], "]"}]}], "hx"]}], "-", " ", 
        RowBox[{"Axmh2", " ", 
         FractionBox[
          RowBox[{
           RowBox[{"u", "[", 
            RowBox[{"x", ",", "y"}], "]"}], "-", "Uxmh"}], "hx"]}]}], ")"}], 
      FractionBox["1", "hx"]}], "-", 
     RowBox[{"D", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"a", "[", 
         RowBox[{"x", ",", "y"}], "]"}], 
        RowBox[{"D", "[", 
         RowBox[{
          RowBox[{"u", "[", 
           RowBox[{"x", ",", "y"}], "]"}], ",", "x"}], "]"}]}], ",", "x"}], 
      "]"}]}], ")"}], "-", 
   RowBox[{
    FractionBox[
     SuperscriptBox["hx", "2"], "12"], 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"a", "[", 
        RowBox[{"x", ",", "y"}], "]"}], 
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{"u", "[", 
          RowBox[{"x", ",", "y"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"x", ",", "4"}], "}"}]}], "]"}]}], "+", 
      RowBox[{"2", 
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{"a", "[", 
          RowBox[{"x", ",", "y"}], "]"}], ",", "x"}], "]"}], 
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{"u", "[", 
          RowBox[{"x", ",", "y"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"x", ",", "3"}], "}"}]}], "]"}]}], "+", 
      RowBox[{
       FractionBox["3", "2"], 
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{"a", "[", 
          RowBox[{"x", ",", "y"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"x", ",", "2"}], "}"}]}], "]"}], 
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{"u", "[", 
          RowBox[{"x", ",", "y"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"x", ",", "2"}], "}"}]}], "]"}]}], "+", 
      RowBox[{
       FractionBox["1", "2"], 
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{"a", "[", 
          RowBox[{"x", ",", "y"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"x", ",", "3"}], "}"}]}], "]"}], 
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{"u", "[", 
          RowBox[{"x", ",", "y"}], "]"}], ",", "x"}], "]"}]}]}], ")"}]}]}], "//",
   "Simplify"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Byph2", " ", 
         FractionBox[
          RowBox[{"Uyph", "-", 
           RowBox[{"u", "[", 
            RowBox[{"x", ",", "y"}], "]"}]}], "hy"]}], "-", " ", 
        RowBox[{"Bymh2", " ", 
         FractionBox[
          RowBox[{
           RowBox[{"u", "[", 
            RowBox[{"x", ",", "y"}], "]"}], "-", "Uymh"}], "hy"]}]}], ")"}], 
      FractionBox["1", "hy"]}], "-", 
     RowBox[{"D", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"b", "[", 
         RowBox[{"x", ",", "y"}], "]"}], 
        RowBox[{"D", "[", 
         RowBox[{
          RowBox[{"u", "[", 
           RowBox[{"x", ",", "y"}], "]"}], ",", "y"}], "]"}]}], ",", "y"}], 
      "]"}]}], ")"}], "-", 
   RowBox[{
    FractionBox[
     SuperscriptBox["hy", "2"], "12"], 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"b", "[", 
        RowBox[{"x", ",", "y"}], "]"}], 
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{"u", "[", 
          RowBox[{"x", ",", "y"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"y", ",", "4"}], "}"}]}], "]"}]}], "+", 
      RowBox[{"2", 
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{"b", "[", 
          RowBox[{"x", ",", "y"}], "]"}], ",", "y"}], "]"}], 
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{"u", "[", 
          RowBox[{"x", ",", "y"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"y", ",", "3"}], "}"}]}], "]"}]}], "+", 
      RowBox[{
       FractionBox["3", "2"], 
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{"b", "[", 
          RowBox[{"x", ",", "y"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"y", ",", "2"}], "}"}]}], "]"}], 
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{"u", "[", 
          RowBox[{"x", ",", "y"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"y", ",", "2"}], "}"}]}], "]"}]}], "+", 
      RowBox[{
       FractionBox["1", "2"], 
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{"b", "[", 
          RowBox[{"x", ",", "y"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"y", ",", "3"}], "}"}]}], "]"}], 
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{"u", "[", 
          RowBox[{"x", ",", "y"}], "]"}], ",", "y"}], "]"}]}]}], ")"}]}]}], "//",
   "Simplify"}]}], "Input",
 CellChangeTimes->{{3.613867014509508*^9, 3.6138670232909737`*^9}, {
   3.6138671154451714`*^9, 3.613867115892679*^9}, 3.613867258900856*^9, 
   3.6138673913487988`*^9, {3.6138674507414494`*^9, 3.613867452460244*^9}, {
   3.613867750426196*^9, 3.613867753249958*^9}, {3.613867808985756*^9, 
   3.613867868890476*^9}, {3.616856654938398*^9, 3.616856655945593*^9}, {
   3.616856687694214*^9, 3.616856696949215*^9}, {3.6168567322982903`*^9, 
   3.6168567584084587`*^9}, {3.616856975046381*^9, 3.61685710831863*^9}, {
   3.616857140118978*^9, 3.616857191419104*^9}, {3.616857236413498*^9, 
   3.6168573168918257`*^9}, {3.6168573666001673`*^9, 3.616857367582246*^9}, {
   3.616857590452051*^9, 3.6168576661728086`*^9}}],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "1625702400"], 
  RowBox[{
   SuperscriptBox["hx", "4"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"16934400", " ", 
      RowBox[{
       SuperscriptBox["a", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"2", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}], " ", 
      RowBox[{
       SuperscriptBox["u", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"4", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}]}], "+", 
     RowBox[{"352800", " ", 
      SuperscriptBox["hx", "2"], " ", 
      RowBox[{
       SuperscriptBox["a", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"4", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}], " ", 
      RowBox[{
       SuperscriptBox["u", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"4", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}]}], "+", 
     RowBox[{"846720", " ", 
      RowBox[{
       SuperscriptBox["u", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"1", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}], " ", 
      RowBox[{
       SuperscriptBox["a", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"5", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}]}], "+", 
     RowBox[{"141120", " ", 
      SuperscriptBox["hx", "2"], " ", 
      RowBox[{
       SuperscriptBox["u", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"3", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}], " ", 
      RowBox[{
       SuperscriptBox["a", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"5", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}]}], "+", 
     RowBox[{"13547520", " ", 
      RowBox[{
       SuperscriptBox["a", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"1", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}], " ", 
      RowBox[{
       SuperscriptBox["u", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"5", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}]}], "+", 
     RowBox[{"7056", " ", 
      SuperscriptBox["hx", "4"], " ", 
      RowBox[{
       SuperscriptBox["a", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"5", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}], " ", 
      RowBox[{
       SuperscriptBox["u", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"5", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}]}], "+", 
     RowBox[{"2940", " ", 
      SuperscriptBox["hx", "4"], " ", 
      RowBox[{
       SuperscriptBox["u", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"4", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}], " ", 
      RowBox[{
       SuperscriptBox["a", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"6", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}]}], "+", 
     RowBox[{"35280", " ", 
      RowBox[{
       SuperscriptBox["u", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"2", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"120", " ", 
         RowBox[{
          SuperscriptBox["a", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"4", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "+", 
        RowBox[{
         SuperscriptBox["hx", "2"], " ", 
         RowBox[{
          SuperscriptBox["a", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"6", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}]}], ")"}]}], "+", 
     RowBox[{"4515840", " ", 
      RowBox[{"a", "[", 
       RowBox[{"x", ",", "y"}], "]"}], " ", 
      RowBox[{
       SuperscriptBox["u", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"6", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}]}], "+", 
     RowBox[{"564480", " ", 
      SuperscriptBox["hx", "2"], " ", 
      RowBox[{
       SuperscriptBox["a", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"2", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}], " ", 
      RowBox[{
       SuperscriptBox["u", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"6", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}]}], "+", 
     RowBox[{"11760", " ", 
      SuperscriptBox["hx", "4"], " ", 
      RowBox[{
       SuperscriptBox["a", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"4", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}], " ", 
      RowBox[{
       SuperscriptBox["u", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"6", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}]}], "+", 
     RowBox[{"98", " ", 
      SuperscriptBox["hx", "6"], " ", 
      RowBox[{
       SuperscriptBox["a", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"6", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}], " ", 
      RowBox[{
       SuperscriptBox["u", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"6", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}]}], "+", 
     RowBox[{"5040", " ", 
      SuperscriptBox["hx", "2"], " ", 
      RowBox[{
       SuperscriptBox["u", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"1", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}], " ", 
      RowBox[{
       SuperscriptBox["a", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"7", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}]}], "+", 
     RowBox[{"840", " ", 
      SuperscriptBox["hx", "4"], " ", 
      RowBox[{
       SuperscriptBox["u", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"3", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}], " ", 
      RowBox[{
       SuperscriptBox["a", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"7", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}]}], "+", 
     RowBox[{"42", " ", 
      SuperscriptBox["hx", "6"], " ", 
      RowBox[{
       SuperscriptBox["u", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"5", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}], " ", 
      RowBox[{
       SuperscriptBox["a", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"7", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}]}], "+", 
     RowBox[{"322560", " ", 
      SuperscriptBox["hx", "2"], " ", 
      RowBox[{
       SuperscriptBox["a", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"1", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}], " ", 
      RowBox[{
       SuperscriptBox["u", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"7", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}]}], "+", 
     RowBox[{"168", " ", 
      SuperscriptBox["hx", "6"], " ", 
      RowBox[{
       SuperscriptBox["a", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"5", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}], " ", 
      RowBox[{
       SuperscriptBox["u", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"7", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}]}], "+", 
     RowBox[{
      SuperscriptBox["hx", "8"], " ", 
      RowBox[{
       SuperscriptBox["a", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"7", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}], " ", 
      RowBox[{
       SuperscriptBox["u", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"7", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}]}], "+", 
     RowBox[{"13440", " ", 
      RowBox[{
       SuperscriptBox["a", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"3", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"840", " ", 
         RowBox[{
          SuperscriptBox["u", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"3", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "+", 
        RowBox[{"42", " ", 
         SuperscriptBox["hx", "2"], " ", 
         RowBox[{
          SuperscriptBox["u", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"5", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "+", 
        RowBox[{
         SuperscriptBox["hx", "4"], " ", 
         RowBox[{
          SuperscriptBox["u", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"7", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}]}], ")"}]}]}], ")"}]}]}]], "Output",\

 CellChangeTimes->{3.6138669669149323`*^9, 3.61386701569372*^9, 
  3.613867058969384*^9, 3.61386714513828*^9, 3.6138672242443647`*^9, 
  3.613867290953745*^9, 3.613867391825757*^9, 3.613867452839313*^9, 
  3.6138678710480328`*^9, 3.6168566975039463`*^9, 3.6168567611948338`*^9, 
  3.616857193344372*^9, 3.6168572453922462`*^9, 3.616857317913159*^9, 
  3.616857369446314*^9, 3.616857666850463*^9}],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "1625702400"], 
  RowBox[{
   SuperscriptBox["hy", "4"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"16934400", " ", 
      RowBox[{
       SuperscriptBox["b", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "2"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}], " ", 
      RowBox[{
       SuperscriptBox["u", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "4"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}]}], "+", 
     RowBox[{"352800", " ", 
      SuperscriptBox["hy", "2"], " ", 
      RowBox[{
       SuperscriptBox["b", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "4"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}], " ", 
      RowBox[{
       SuperscriptBox["u", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "4"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}]}], "+", 
     RowBox[{"846720", " ", 
      RowBox[{
       SuperscriptBox["u", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "1"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}], " ", 
      RowBox[{
       SuperscriptBox["b", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "5"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}]}], "+", 
     RowBox[{"141120", " ", 
      SuperscriptBox["hy", "2"], " ", 
      RowBox[{
       SuperscriptBox["u", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "3"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}], " ", 
      RowBox[{
       SuperscriptBox["b", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "5"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}]}], "+", 
     RowBox[{"13547520", " ", 
      RowBox[{
       SuperscriptBox["b", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "1"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}], " ", 
      RowBox[{
       SuperscriptBox["u", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "5"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}]}], "+", 
     RowBox[{"7056", " ", 
      SuperscriptBox["hy", "4"], " ", 
      RowBox[{
       SuperscriptBox["b", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "5"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}], " ", 
      RowBox[{
       SuperscriptBox["u", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "5"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}]}], "+", 
     RowBox[{"2940", " ", 
      SuperscriptBox["hy", "4"], " ", 
      RowBox[{
       SuperscriptBox["u", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "4"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}], " ", 
      RowBox[{
       SuperscriptBox["b", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "6"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}]}], "+", 
     RowBox[{"35280", " ", 
      RowBox[{
       SuperscriptBox["u", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "2"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"120", " ", 
         RowBox[{
          SuperscriptBox["b", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"0", ",", "4"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "+", 
        RowBox[{
         SuperscriptBox["hy", "2"], " ", 
         RowBox[{
          SuperscriptBox["b", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"0", ",", "6"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}]}], ")"}]}], "+", 
     RowBox[{"4515840", " ", 
      RowBox[{"b", "[", 
       RowBox[{"x", ",", "y"}], "]"}], " ", 
      RowBox[{
       SuperscriptBox["u", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "6"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}]}], "+", 
     RowBox[{"564480", " ", 
      SuperscriptBox["hy", "2"], " ", 
      RowBox[{
       SuperscriptBox["b", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "2"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}], " ", 
      RowBox[{
       SuperscriptBox["u", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "6"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}]}], "+", 
     RowBox[{"11760", " ", 
      SuperscriptBox["hy", "4"], " ", 
      RowBox[{
       SuperscriptBox["b", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "4"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}], " ", 
      RowBox[{
       SuperscriptBox["u", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "6"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}]}], "+", 
     RowBox[{"98", " ", 
      SuperscriptBox["hy", "6"], " ", 
      RowBox[{
       SuperscriptBox["b", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "6"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}], " ", 
      RowBox[{
       SuperscriptBox["u", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "6"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}]}], "+", 
     RowBox[{"5040", " ", 
      SuperscriptBox["hy", "2"], " ", 
      RowBox[{
       SuperscriptBox["u", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "1"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}], " ", 
      RowBox[{
       SuperscriptBox["b", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "7"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}]}], "+", 
     RowBox[{"840", " ", 
      SuperscriptBox["hy", "4"], " ", 
      RowBox[{
       SuperscriptBox["u", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "3"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}], " ", 
      RowBox[{
       SuperscriptBox["b", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "7"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}]}], "+", 
     RowBox[{"42", " ", 
      SuperscriptBox["hy", "6"], " ", 
      RowBox[{
       SuperscriptBox["u", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "5"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}], " ", 
      RowBox[{
       SuperscriptBox["b", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "7"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}]}], "+", 
     RowBox[{"322560", " ", 
      SuperscriptBox["hy", "2"], " ", 
      RowBox[{
       SuperscriptBox["b", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "1"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}], " ", 
      RowBox[{
       SuperscriptBox["u", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "7"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}]}], "+", 
     RowBox[{"168", " ", 
      SuperscriptBox["hy", "6"], " ", 
      RowBox[{
       SuperscriptBox["b", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "5"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}], " ", 
      RowBox[{
       SuperscriptBox["u", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "7"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}]}], "+", 
     RowBox[{
      SuperscriptBox["hy", "8"], " ", 
      RowBox[{
       SuperscriptBox["b", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "7"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}], " ", 
      RowBox[{
       SuperscriptBox["u", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "7"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}]}], "+", 
     RowBox[{"13440", " ", 
      RowBox[{
       SuperscriptBox["b", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "3"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"840", " ", 
         RowBox[{
          SuperscriptBox["u", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"0", ",", "3"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "+", 
        RowBox[{"42", " ", 
         SuperscriptBox["hy", "2"], " ", 
         RowBox[{
          SuperscriptBox["u", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"0", ",", "5"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "+", 
        RowBox[{
         SuperscriptBox["hy", "4"], " ", 
         RowBox[{
          SuperscriptBox["u", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"0", ",", "7"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}]}], ")"}]}]}], ")"}]}]}]], "Output",\

 CellChangeTimes->{3.6138669669149323`*^9, 3.61386701569372*^9, 
  3.613867058969384*^9, 3.61386714513828*^9, 3.6138672242443647`*^9, 
  3.613867290953745*^9, 3.613867391825757*^9, 3.613867452839313*^9, 
  3.6138678710480328`*^9, 3.6168566975039463`*^9, 3.6168567611948338`*^9, 
  3.616857193344372*^9, 3.6168572453922462`*^9, 3.616857317913159*^9, 
  3.616857369446314*^9, 3.616857666942927*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Axph2", " ", 
         FractionBox[
          RowBox[{"Uxph", "-", 
           RowBox[{"u", "[", 
            RowBox[{"x", ",", "y"}], "]"}]}], "hx"]}], "-", " ", 
        RowBox[{"Axmh2", " ", 
         FractionBox[
          RowBox[{
           RowBox[{"u", "[", 
            RowBox[{"x", ",", "y"}], "]"}], "-", "Uxmh"}], "hx"]}]}], ")"}], 
      FractionBox["1", "hx"]}], "-", 
     RowBox[{"D", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"a", "[", 
         RowBox[{"x", ",", "y"}], "]"}], 
        RowBox[{"D", "[", 
         RowBox[{
          RowBox[{"u", "[", 
           RowBox[{"x", ",", "y"}], "]"}], ",", "x"}], "]"}]}], ",", "x"}], 
      "]"}]}], ")"}], "-", 
   RowBox[{
    FractionBox[
     SuperscriptBox["hx", "2"], "12"], 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"a", "[", 
        RowBox[{"x", ",", "y"}], "]"}], 
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{"u", "[", 
          RowBox[{"x", ",", "y"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"x", ",", "4"}], "}"}]}], "]"}]}], "+", 
      RowBox[{"2", 
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{"a", "[", 
          RowBox[{"x", ",", "y"}], "]"}], ",", "x"}], "]"}], 
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{"u", "[", 
          RowBox[{"x", ",", "y"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"x", ",", "3"}], "}"}]}], "]"}]}], "+", 
      RowBox[{
       FractionBox["3", "2"], 
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{"a", "[", 
          RowBox[{"x", ",", "y"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"x", ",", "2"}], "}"}]}], "]"}], 
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{"u", "[", 
          RowBox[{"x", ",", "y"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"x", ",", "2"}], "}"}]}], "]"}]}], "+", 
      RowBox[{
       FractionBox["1", "2"], 
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{"a", "[", 
          RowBox[{"x", ",", "y"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"x", ",", "3"}], "}"}]}], "]"}], 
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{"u", "[", 
          RowBox[{"x", ",", "y"}], "]"}], ",", "x"}], "]"}]}]}], ")"}]}], "-", 
   RowBox[{
    FractionBox[
     SuperscriptBox["hx", "4"], "360"], 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"a", "[", 
        RowBox[{"x", ",", "y"}], "]"}], " ", 
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{"u", "[", 
          RowBox[{"x", ",", "y"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"x", ",", "6"}], "}"}]}], "]"}]}], "+", 
      RowBox[{"3", " ", 
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{"a", "[", 
          RowBox[{"x", ",", "y"}], "]"}], ",", "x"}], "]"}], " ", 
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{"u", "[", 
          RowBox[{"x", ",", "y"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"x", ",", "5"}], "}"}]}], "]"}]}], "+", 
      RowBox[{
       FractionBox["15", "4"], " ", 
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{"a", "[", 
          RowBox[{"x", ",", "y"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"x", ",", "2"}], "}"}]}], "]"}], " ", 
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{"u", "[", 
          RowBox[{"x", ",", "y"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"x", ",", "4"}], "}"}]}], "]"}]}], "+", 
      RowBox[{
       FractionBox["5", "2"], " ", 
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{"a", "[", 
          RowBox[{"x", ",", "y"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"x", ",", "3"}], "}"}]}], "]"}], " ", 
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{"u", "[", 
          RowBox[{"x", ",", "y"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"x", ",", "3"}], "}"}]}], "]"}]}], "+", 
      RowBox[{
       FractionBox["15", "16"], "  ", 
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{"a", "[", 
          RowBox[{"x", ",", "y"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"x", ",", "4"}], "}"}]}], "]"}], 
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{"u", "[", 
          RowBox[{"x", ",", "y"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"x", ",", "2"}], "}"}]}], "]"}]}], "+", 
      RowBox[{
       FractionBox["3", "16"], " ", 
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{"a", "[", 
          RowBox[{"x", ",", "y"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"x", ",", "5"}], "}"}]}], "]"}], 
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{"u", "[", 
          RowBox[{"x", ",", "y"}], "]"}], ",", "x"}], "]"}]}]}], ")"}]}]}], "//",
   "Simplify"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Byph2", " ", 
         FractionBox[
          RowBox[{"Uyph", "-", 
           RowBox[{"u", "[", 
            RowBox[{"x", ",", "y"}], "]"}]}], "hy"]}], "-", " ", 
        RowBox[{"Bymh2", " ", 
         FractionBox[
          RowBox[{
           RowBox[{"u", "[", 
            RowBox[{"x", ",", "y"}], "]"}], "-", "Uymh"}], "hy"]}]}], ")"}], 
      FractionBox["1", "hy"]}], "-", 
     RowBox[{"D", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"b", "[", 
         RowBox[{"x", ",", "y"}], "]"}], 
        RowBox[{"D", "[", 
         RowBox[{
          RowBox[{"u", "[", 
           RowBox[{"x", ",", "y"}], "]"}], ",", "y"}], "]"}]}], ",", "y"}], 
      "]"}]}], ")"}], "-", 
   RowBox[{
    FractionBox[
     SuperscriptBox["hy", "2"], "12"], 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"b", "[", 
        RowBox[{"x", ",", "y"}], "]"}], 
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{"u", "[", 
          RowBox[{"x", ",", "y"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"y", ",", "4"}], "}"}]}], "]"}]}], "+", 
      RowBox[{"2", 
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{"b", "[", 
          RowBox[{"x", ",", "y"}], "]"}], ",", "y"}], "]"}], 
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{"u", "[", 
          RowBox[{"x", ",", "y"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"y", ",", "3"}], "}"}]}], "]"}]}], "+", 
      RowBox[{
       FractionBox["3", "2"], 
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{"b", "[", 
          RowBox[{"x", ",", "y"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"y", ",", "2"}], "}"}]}], "]"}], 
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{"u", "[", 
          RowBox[{"x", ",", "y"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"y", ",", "2"}], "}"}]}], "]"}]}], "+", 
      RowBox[{
       FractionBox["1", "2"], 
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{"b", "[", 
          RowBox[{"x", ",", "y"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"y", ",", "3"}], "}"}]}], "]"}], 
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{"u", "[", 
          RowBox[{"x", ",", "y"}], "]"}], ",", "y"}], "]"}]}]}], ")"}]}], "-", 
   RowBox[{
    FractionBox[
     SuperscriptBox["hy", "4"], "360"], 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"b", "[", 
        RowBox[{"x", ",", "y"}], "]"}], " ", 
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{"u", "[", 
          RowBox[{"x", ",", "y"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"y", ",", "6"}], "}"}]}], "]"}]}], "+", 
      RowBox[{"3", " ", 
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{"b", "[", 
          RowBox[{"x", ",", "y"}], "]"}], ",", "y"}], "]"}], " ", 
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{"u", "[", 
          RowBox[{"x", ",", "y"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"y", ",", "5"}], "}"}]}], "]"}]}], "+", 
      RowBox[{
       FractionBox["15", "4"], " ", 
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{"b", "[", 
          RowBox[{"x", ",", "y"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"y", ",", "2"}], "}"}]}], "]"}], " ", 
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{"u", "[", 
          RowBox[{"x", ",", "y"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"y", ",", "4"}], "}"}]}], "]"}]}], "+", 
      RowBox[{
       FractionBox["5", "2"], " ", 
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{"b", "[", 
          RowBox[{"x", ",", "y"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"y", ",", "3"}], "}"}]}], "]"}], " ", 
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{"u", "[", 
          RowBox[{"x", ",", "y"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"y", ",", "3"}], "}"}]}], "]"}]}], "+", 
      RowBox[{
       FractionBox["15", "16"], "  ", 
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{"b", "[", 
          RowBox[{"x", ",", "y"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"y", ",", "4"}], "}"}]}], "]"}], 
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{"u", "[", 
          RowBox[{"x", ",", "y"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"y", ",", "2"}], "}"}]}], "]"}]}], "+", 
      RowBox[{
       FractionBox["3", "16"], " ", 
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{"b", "[", 
          RowBox[{"x", ",", "y"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"y", ",", "5"}], "}"}]}], "]"}], 
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{"u", "[", 
          RowBox[{"x", ",", "y"}], "]"}], ",", "y"}], "]"}]}]}], ")"}]}]}], "//",
   "Simplify"}]}], "Input",
 CellChangeTimes->{
  3.616869681426461*^9, {3.6168714680135508`*^9, 3.6168714859338217`*^9}, {
   3.616871556318124*^9, 3.616871559044325*^9}, {3.616871612265642*^9, 
   3.616871683800715*^9}, {3.616871715717989*^9, 3.616871804976115*^9}, {
   3.6168718510829573`*^9, 3.616871881439394*^9}, {3.6168719460136757`*^9, 
   3.6168720320916367`*^9}, 3.6168720634565783`*^9, {3.6168721081211576`*^9, 
   3.616872133883573*^9}, {3.6168722883143044`*^9, 3.616872301909298*^9}}],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "1625702400"], 
  RowBox[{
   SuperscriptBox["hx", "6"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"564480", " ", 
      RowBox[{
       SuperscriptBox["a", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"3", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}], " ", 
      RowBox[{
       SuperscriptBox["u", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"5", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}]}], "+", 
     RowBox[{"7056", " ", 
      SuperscriptBox["hx", "2"], " ", 
      RowBox[{
       SuperscriptBox["a", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"5", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}], " ", 
      RowBox[{
       SuperscriptBox["u", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"5", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}]}], "+", 
     RowBox[{"35280", " ", 
      RowBox[{
       SuperscriptBox["u", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"2", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}], " ", 
      RowBox[{
       SuperscriptBox["a", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"6", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}]}], "+", 
     RowBox[{"2940", " ", 
      SuperscriptBox["hx", "2"], " ", 
      RowBox[{
       SuperscriptBox["u", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"4", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}], " ", 
      RowBox[{
       SuperscriptBox["a", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"6", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}]}], "+", 
     RowBox[{"564480", " ", 
      RowBox[{
       SuperscriptBox["a", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"2", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}], " ", 
      RowBox[{
       SuperscriptBox["u", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"6", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}]}], "+", 
     RowBox[{"98", " ", 
      SuperscriptBox["hx", "4"], " ", 
      RowBox[{
       SuperscriptBox["a", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"6", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}], " ", 
      RowBox[{
       SuperscriptBox["u", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"6", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}]}], "+", 
     RowBox[{"11760", " ", 
      RowBox[{
       SuperscriptBox["a", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"4", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"30", " ", 
         RowBox[{
          SuperscriptBox["u", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"4", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "+", 
        RowBox[{
         SuperscriptBox["hx", "2"], " ", 
         RowBox[{
          SuperscriptBox["u", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"6", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}]}], ")"}]}], "+", 
     RowBox[{"5040", " ", 
      RowBox[{
       SuperscriptBox["u", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"1", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}], " ", 
      RowBox[{
       SuperscriptBox["a", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"7", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}]}], "+", 
     RowBox[{"42", " ", 
      SuperscriptBox["hx", "4"], " ", 
      RowBox[{
       SuperscriptBox["u", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"5", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}], " ", 
      RowBox[{
       SuperscriptBox["a", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"7", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}]}], "+", 
     RowBox[{"840", " ", 
      RowBox[{
       SuperscriptBox["u", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"3", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"168", " ", 
         RowBox[{
          SuperscriptBox["a", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"5", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "+", 
        RowBox[{
         SuperscriptBox["hx", "2"], " ", 
         RowBox[{
          SuperscriptBox["a", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"7", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}]}], ")"}]}], "+", 
     RowBox[{"322560", " ", 
      RowBox[{
       SuperscriptBox["a", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"1", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}], " ", 
      RowBox[{
       SuperscriptBox["u", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"7", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}]}], "+", 
     RowBox[{"13440", " ", 
      SuperscriptBox["hx", "2"], " ", 
      RowBox[{
       SuperscriptBox["a", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"3", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}], " ", 
      RowBox[{
       SuperscriptBox["u", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"7", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}]}], "+", 
     RowBox[{"168", " ", 
      SuperscriptBox["hx", "4"], " ", 
      RowBox[{
       SuperscriptBox["a", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"5", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}], " ", 
      RowBox[{
       SuperscriptBox["u", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"7", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}]}], "+", 
     RowBox[{
      SuperscriptBox["hx", "6"], " ", 
      RowBox[{
       SuperscriptBox["a", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"7", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}], " ", 
      RowBox[{
       SuperscriptBox["u", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"7", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}]}]}], ")"}]}]}]], "Output",
 CellChangeTimes->{
  3.616869683435083*^9, 3.6168715613123627`*^9, 3.6168716860109587`*^9, 
   3.616871806873825*^9, {3.616871855461275*^9, 3.616871882545598*^9}, 
   3.616872033775115*^9, 3.616872135157655*^9, 3.6168723036287527`*^9}],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "1625702400"], 
  RowBox[{
   SuperscriptBox["hy", "6"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"564480", " ", 
      RowBox[{
       SuperscriptBox["b", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "3"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}], " ", 
      RowBox[{
       SuperscriptBox["u", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "5"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}]}], "+", 
     RowBox[{"7056", " ", 
      SuperscriptBox["hy", "2"], " ", 
      RowBox[{
       SuperscriptBox["b", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "5"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}], " ", 
      RowBox[{
       SuperscriptBox["u", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "5"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}]}], "+", 
     RowBox[{"35280", " ", 
      RowBox[{
       SuperscriptBox["u", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "2"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}], " ", 
      RowBox[{
       SuperscriptBox["b", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "6"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}]}], "+", 
     RowBox[{"2940", " ", 
      SuperscriptBox["hy", "2"], " ", 
      RowBox[{
       SuperscriptBox["u", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "4"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}], " ", 
      RowBox[{
       SuperscriptBox["b", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "6"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}]}], "+", 
     RowBox[{"564480", " ", 
      RowBox[{
       SuperscriptBox["b", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "2"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}], " ", 
      RowBox[{
       SuperscriptBox["u", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "6"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}]}], "+", 
     RowBox[{"98", " ", 
      SuperscriptBox["hy", "4"], " ", 
      RowBox[{
       SuperscriptBox["b", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "6"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}], " ", 
      RowBox[{
       SuperscriptBox["u", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "6"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}]}], "+", 
     RowBox[{"11760", " ", 
      RowBox[{
       SuperscriptBox["b", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "4"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"30", " ", 
         RowBox[{
          SuperscriptBox["u", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"0", ",", "4"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "+", 
        RowBox[{
         SuperscriptBox["hy", "2"], " ", 
         RowBox[{
          SuperscriptBox["u", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"0", ",", "6"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}]}], ")"}]}], "+", 
     RowBox[{"5040", " ", 
      RowBox[{
       SuperscriptBox["u", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "1"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}], " ", 
      RowBox[{
       SuperscriptBox["b", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "7"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}]}], "+", 
     RowBox[{"42", " ", 
      SuperscriptBox["hy", "4"], " ", 
      RowBox[{
       SuperscriptBox["u", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "5"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}], " ", 
      RowBox[{
       SuperscriptBox["b", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "7"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}]}], "+", 
     RowBox[{"840", " ", 
      RowBox[{
       SuperscriptBox["u", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "3"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"168", " ", 
         RowBox[{
          SuperscriptBox["b", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"0", ",", "5"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "+", 
        RowBox[{
         SuperscriptBox["hy", "2"], " ", 
         RowBox[{
          SuperscriptBox["b", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"0", ",", "7"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}]}], ")"}]}], "+", 
     RowBox[{"322560", " ", 
      RowBox[{
       SuperscriptBox["b", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "1"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}], " ", 
      RowBox[{
       SuperscriptBox["u", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "7"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}]}], "+", 
     RowBox[{"13440", " ", 
      SuperscriptBox["hy", "2"], " ", 
      RowBox[{
       SuperscriptBox["b", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "3"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}], " ", 
      RowBox[{
       SuperscriptBox["u", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "7"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}]}], "+", 
     RowBox[{"168", " ", 
      SuperscriptBox["hy", "4"], " ", 
      RowBox[{
       SuperscriptBox["b", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "5"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}], " ", 
      RowBox[{
       SuperscriptBox["u", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "7"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}]}], "+", 
     RowBox[{
      SuperscriptBox["hy", "6"], " ", 
      RowBox[{
       SuperscriptBox["b", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "7"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}], " ", 
      RowBox[{
       SuperscriptBox["u", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "7"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}]}]}], ")"}]}]}]], "Output",
 CellChangeTimes->{
  3.616869683435083*^9, 3.6168715613123627`*^9, 3.6168716860109587`*^9, 
   3.616871806873825*^9, {3.616871855461275*^9, 3.616871882545598*^9}, 
   3.616872033775115*^9, 3.616872135157655*^9, 3.6168723037080317`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"Uxx", "=", 
     RowBox[{
      RowBox[{
       RowBox[{"Solve", " ", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"D", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"a", "[", 
              RowBox[{"x", ",", "y"}], "]"}], 
             RowBox[{"D", "[", 
              RowBox[{
               RowBox[{"u", "[", 
                RowBox[{"x", ",", "y"}], "]"}], ",", "x"}], "]"}]}], ",", 
            "x"}], "]"}], "\[Equal]", "Fx"}], ",", 
         RowBox[{
          SuperscriptBox["u", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"2", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "]"}], "[", 
       RowBox[{"[", "1", "]"}], "]"}], "[", 
      RowBox[{"[", "1", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"U3x", "=", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"Solve", " ", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"D", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"x", ",", "y"}], "]"}], 
                 RowBox[{"D", "[", 
                  RowBox[{
                   RowBox[{"u", "[", 
                    RowBox[{"x", ",", "y"}], "]"}], ",", "x"}], "]"}]}], ",", 
                
                RowBox[{"{", 
                 RowBox[{"x", ",", "2"}], "}"}]}], "]"}], "\[Equal]", "Fxx"}],
              ",", 
             RowBox[{
              SuperscriptBox["u", 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"3", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"x", ",", "y"}], "]"}]}], "]"}], "/.", "Uxx"}], "//", 
          "Simplify"}], "//", "Expand"}], ")"}], "[", 
       RowBox[{"[", "1", "]"}], "]"}], "[", 
      RowBox[{"[", "1", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"U4x", "=", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"Solve", " ", "[", 
             RowBox[{
              RowBox[{
               RowBox[{"D", "[", 
                RowBox[{
                 RowBox[{
                  RowBox[{"a", "[", 
                   RowBox[{"x", ",", "y"}], "]"}], 
                  RowBox[{"D", "[", 
                   RowBox[{
                    RowBox[{"u", "[", 
                    RowBox[{"x", ",", "y"}], "]"}], ",", "x"}], "]"}]}], ",", 
                 
                 RowBox[{"{", 
                  RowBox[{"x", ",", "3"}], "}"}]}], "]"}], "\[Equal]", 
               "F3x"}], ",", 
              RowBox[{
               SuperscriptBox["u", 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"4", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"x", ",", "y"}], "]"}]}], "]"}], "/.", "U3x"}], "/.", 
           "Uxx"}], "//", "Simplify"}], "//", "Expand"}], ")"}], "[", 
       RowBox[{"[", "1", "]"}], "]"}], "[", 
      RowBox[{"[", "1", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"U5x", "=", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"Solve", " ", "[", 
              RowBox[{
               RowBox[{
                RowBox[{"D", "[", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"a", "[", 
                    RowBox[{"x", ",", "y"}], "]"}], 
                   RowBox[{"D", "[", 
                    RowBox[{
                    RowBox[{"u", "[", 
                    RowBox[{"x", ",", "y"}], "]"}], ",", "x"}], "]"}]}], ",", 
                  
                  RowBox[{"{", 
                   RowBox[{"x", ",", "4"}], "}"}]}], "]"}], "\[Equal]", 
                "F4x"}], ",", 
               RowBox[{
                SuperscriptBox["u", 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"5", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"x", ",", "y"}], "]"}]}], "]"}], "/.", "U4x"}], "/.", 
            "U3x"}], "/.", "Uxx"}], "//", "Simplify"}], "//", "Expand"}], 
        ")"}], "[", 
       RowBox[{"[", "1", "]"}], "]"}], "[", 
      RowBox[{"[", "1", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"U6x", "=", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Solve", " ", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"D", "[", 
                  RowBox[{
                   RowBox[{
                    RowBox[{"a", "[", 
                    RowBox[{"x", ",", "y"}], "]"}], 
                    RowBox[{"D", "[", 
                    RowBox[{
                    RowBox[{"u", "[", 
                    RowBox[{"x", ",", "y"}], "]"}], ",", "x"}], "]"}]}], ",", 
                   
                   RowBox[{"{", 
                    RowBox[{"x", ",", "5"}], "}"}]}], "]"}], "\[Equal]", 
                 "F5x"}], ",", 
                RowBox[{
                 SuperscriptBox["u", 
                  TagBox[
                   RowBox[{"(", 
                    RowBox[{"6", ",", "0"}], ")"}],
                   Derivative],
                  MultilineFunction->None], "[", 
                 RowBox[{"x", ",", "y"}], "]"}]}], "]"}], "/.", "U5x"}], "/.",
              "U4x"}], "/.", "U3x"}], "/.", "Uxx"}], "//", "Simplify"}], "//",
          "Expand"}], ")"}], "[", 
       RowBox[{"[", "1", "]"}], "]"}], "[", 
      RowBox[{"[", "1", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"(*", "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Uyy", "=", 
     RowBox[{
      RowBox[{
       RowBox[{"Solve", " ", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"D", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"b", "[", 
              RowBox[{"x", ",", "y"}], "]"}], 
             RowBox[{"D", "[", 
              RowBox[{
               RowBox[{"u", "[", 
                RowBox[{"x", ",", "y"}], "]"}], ",", "y"}], "]"}]}], ",", 
            "y"}], "]"}], "\[Equal]", "Fy"}], ",", 
         RowBox[{
          SuperscriptBox["u", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"0", ",", "2"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "]"}], "[", 
       RowBox[{"[", "1", "]"}], "]"}], "[", 
      RowBox[{"[", "1", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"U3y", "=", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"Solve", " ", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"D", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"b", "[", 
                  RowBox[{"x", ",", "y"}], "]"}], 
                 RowBox[{"D", "[", 
                  RowBox[{
                   RowBox[{"u", "[", 
                    RowBox[{"x", ",", "y"}], "]"}], ",", "y"}], "]"}]}], ",", 
                
                RowBox[{"{", 
                 RowBox[{"y", ",", "2"}], "}"}]}], "]"}], "\[Equal]", "Fyy"}],
              ",", 
             RowBox[{
              SuperscriptBox["u", 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"0", ",", "3"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"x", ",", "y"}], "]"}]}], "]"}], "/.", "Uyy"}], "//", 
          "Simplify"}], "//", "Expand"}], ")"}], "[", 
       RowBox[{"[", "1", "]"}], "]"}], "[", 
      RowBox[{"[", "1", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"U4y", "=", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"Solve", " ", "[", 
             RowBox[{
              RowBox[{
               RowBox[{"D", "[", 
                RowBox[{
                 RowBox[{
                  RowBox[{"b", "[", 
                   RowBox[{"x", ",", "y"}], "]"}], 
                  RowBox[{"D", "[", 
                   RowBox[{
                    RowBox[{"u", "[", 
                    RowBox[{"x", ",", "y"}], "]"}], ",", "y"}], "]"}]}], ",", 
                 
                 RowBox[{"{", 
                  RowBox[{"y", ",", "3"}], "}"}]}], "]"}], "\[Equal]", 
               "F3y"}], ",", 
              RowBox[{
               SuperscriptBox["u", 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "4"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"x", ",", "y"}], "]"}]}], "]"}], "/.", "U3y"}], "/.", 
           "Uxx"}], "//", "Simplify"}], "//", "Expand"}], ")"}], "[", 
       RowBox[{"[", "1", "]"}], "]"}], "[", 
      RowBox[{"[", "1", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"U5y", "=", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"Solve", " ", "[", 
              RowBox[{
               RowBox[{
                RowBox[{"D", "[", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"b", "[", 
                    RowBox[{"x", ",", "y"}], "]"}], 
                   RowBox[{"D", "[", 
                    RowBox[{
                    RowBox[{"u", "[", 
                    RowBox[{"x", ",", "y"}], "]"}], ",", "y"}], "]"}]}], ",", 
                  
                  RowBox[{"{", 
                   RowBox[{"y", ",", "4"}], "}"}]}], "]"}], "\[Equal]", 
                "F4y"}], ",", 
               RowBox[{
                SuperscriptBox["u", 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"0", ",", "5"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"x", ",", "y"}], "]"}]}], "]"}], "/.", "U4y"}], "/.", 
            "U3x"}], "/.", "Uxx"}], "//", "Simplify"}], "//", "Expand"}], 
        ")"}], "[", 
       RowBox[{"[", "1", "]"}], "]"}], "[", 
      RowBox[{"[", "1", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"U6y", "=", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"Solve", " ", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"D", "[", 
                  RowBox[{
                   RowBox[{
                    RowBox[{"b", "[", 
                    RowBox[{"x", ",", "y"}], "]"}], 
                    RowBox[{"D", "[", 
                    RowBox[{
                    RowBox[{"u", "[", 
                    RowBox[{"x", ",", "y"}], "]"}], ",", "y"}], "]"}]}], ",", 
                   
                   RowBox[{"{", 
                    RowBox[{"y", ",", "5"}], "}"}]}], "]"}], "\[Equal]", 
                 "F5y"}], ",", 
                RowBox[{
                 SuperscriptBox["u", 
                  TagBox[
                   RowBox[{"(", 
                    RowBox[{"0", ",", "6"}], ")"}],
                   Derivative],
                  MultilineFunction->None], "[", 
                 RowBox[{"x", ",", "y"}], "]"}]}], "]"}], "/.", "U5y"}], "/.",
              "U4x"}], "/.", "U3x"}], "/.", "Uxx"}], "//", "Simplify"}], "//",
          "Expand"}], ")"}], "[", 
       RowBox[{"[", "1", "]"}], "]"}], "[", 
      RowBox[{"[", "1", "]"}], "]"}]}], ";"}]}]}]], "Input",
 CellChangeTimes->{{3.6138692166060753`*^9, 3.613869217036522*^9}, 
   3.613878139172432*^9, {3.6168727004708643`*^9, 3.616872750874731*^9}, {
   3.616872836755801*^9, 3.616872855707573*^9}, {3.616872905793648*^9, 
   3.6168729909275703`*^9}, {3.616873331516067*^9, 3.616873419547141*^9}, {
   3.616873461430893*^9, 3.6168734637917547`*^9}, {3.616873495079403*^9, 
   3.616873500678412*^9}, {3.616873556430723*^9, 3.6168736107386312`*^9}, {
   3.6168736707066*^9, 3.6168737345903397`*^9}, {3.616878511616609*^9, 
   3.616878595587603*^9}, {3.616878788863206*^9, 3.616878819307775*^9}, {
   3.616880415826179*^9, 3.616880420281138*^9}, 3.6168830607318497`*^9, 
   3.616883132965373*^9, {3.616883181288784*^9, 3.616883201085655*^9}, {
   3.61688683659394*^9, 3.616887013802891*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"a", "[", 
             RowBox[{"x", ",", "y"}], "]"}], 
            RowBox[{"D", "[", 
             RowBox[{
              RowBox[{"u", "[", 
               RowBox[{"x", ",", "y"}], "]"}], ",", 
              RowBox[{"{", 
               RowBox[{"x", ",", "4"}], "}"}]}], "]"}]}], "+", 
           RowBox[{"2", 
            RowBox[{"D", "[", 
             RowBox[{
              RowBox[{"a", "[", 
               RowBox[{"x", ",", "y"}], "]"}], ",", "x"}], "]"}], 
            RowBox[{"D", "[", 
             RowBox[{
              RowBox[{"u", "[", 
               RowBox[{"x", ",", "y"}], "]"}], ",", 
              RowBox[{"{", 
               RowBox[{"x", ",", "3"}], "}"}]}], "]"}]}], "+", 
           RowBox[{
            FractionBox["3", "2"], 
            RowBox[{"D", "[", 
             RowBox[{
              RowBox[{"a", "[", 
               RowBox[{"x", ",", "y"}], "]"}], ",", 
              RowBox[{"{", 
               RowBox[{"x", ",", "2"}], "}"}]}], "]"}], 
            RowBox[{"D", "[", 
             RowBox[{
              RowBox[{"u", "[", 
               RowBox[{"x", ",", "y"}], "]"}], ",", 
              RowBox[{"{", 
               RowBox[{"x", ",", "2"}], "}"}]}], "]"}]}], "+", 
           RowBox[{
            FractionBox["1", "2"], 
            RowBox[{"D", "[", 
             RowBox[{
              RowBox[{"a", "[", 
               RowBox[{"x", ",", "y"}], "]"}], ",", 
              RowBox[{"{", 
               RowBox[{"x", ",", "3"}], "}"}]}], "]"}], 
            RowBox[{"D", "[", 
             RowBox[{
              RowBox[{"u", "[", 
               RowBox[{"x", ",", "y"}], "]"}], ",", "x"}], "]"}]}]}], ")"}], "/.",
          "U6x"}], "/.", "U5x"}], "/.", "U4x"}], "/.", "U3x"}], "/.", "Uxx"}],
     " ", ")"}], "\[Equal]", 
   RowBox[{"F3x", "-", 
    RowBox[{
     FractionBox[
      RowBox[{" ", 
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{"a", "[", 
          RowBox[{"x", ",", "y"}], "]"}], ",", "x"}], "]"}]}], 
      RowBox[{"a", "[", 
       RowBox[{"x", ",", "y"}], "]"}]], "Fxx"}], "+", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       FractionBox[
        RowBox[{"2", "  ", 
         SuperscriptBox[
          RowBox[{"D", "[", 
           RowBox[{
            RowBox[{"a", "[", 
             RowBox[{"x", ",", "y"}], "]"}], ",", "x"}], "]"}], "2"]}], 
        SuperscriptBox[
         RowBox[{"a", "[", 
          RowBox[{"x", ",", "y"}], "]"}], "2"]], "-", 
       FractionBox[
        RowBox[{"3", "  ", 
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{"a", "[", 
            RowBox[{"x", ",", "y"}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"x", ",", "2"}], "}"}]}], "]"}]}], 
        RowBox[{"2", " ", 
         RowBox[{"a", "[", 
          RowBox[{"x", ",", "y"}], "]"}]}]]}], ")"}], "Fx"}], "+", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       FractionBox[
        RowBox[{"5", " ", 
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{"a", "[", 
            RowBox[{"x", ",", "y"}], "]"}], ",", "x"}], "]"}], "  ", 
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{"a", "[", 
            RowBox[{"x", ",", "y"}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"x", ",", "2"}], "}"}]}], "]"}]}], 
        RowBox[{"2", " ", 
         RowBox[{"a", "[", 
          RowBox[{"x", ",", "y"}], "]"}]}]], "-", 
       FractionBox[
        RowBox[{"2", " ", 
         SuperscriptBox[
          RowBox[{"D", "[", 
           RowBox[{
            RowBox[{"a", "[", 
             RowBox[{"x", ",", "y"}], "]"}], ",", "x"}], "]"}], "3"], " "}], 
        SuperscriptBox[
         RowBox[{"a", "[", 
          RowBox[{"x", ",", "y"}], "]"}], "2"]], "-", 
       RowBox[{
        FractionBox["1", "2"], "  ", 
        RowBox[{"D", "[", 
         RowBox[{
          RowBox[{"a", "[", 
           RowBox[{"x", ",", "y"}], "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"x", ",", "3"}], "}"}]}], "]"}]}]}], ")"}], 
     RowBox[{"D", "[", 
      RowBox[{
       RowBox[{"u", "[", 
        RowBox[{"x", ",", "y"}], "]"}], ",", "x"}], "]"}]}]}]}], "//", 
  "Simplify"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"a", "[", 
             RowBox[{"x", ",", "y"}], "]"}], " ", 
            RowBox[{"D", "[", 
             RowBox[{
              RowBox[{"u", "[", 
               RowBox[{"x", ",", "y"}], "]"}], ",", 
              RowBox[{"{", 
               RowBox[{"x", ",", "6"}], "}"}]}], "]"}]}], "+", 
           RowBox[{"3", " ", 
            RowBox[{"D", "[", 
             RowBox[{
              RowBox[{"a", "[", 
               RowBox[{"x", ",", "y"}], "]"}], ",", "x"}], "]"}], " ", 
            RowBox[{"D", "[", 
             RowBox[{
              RowBox[{"u", "[", 
               RowBox[{"x", ",", "y"}], "]"}], ",", 
              RowBox[{"{", 
               RowBox[{"x", ",", "5"}], "}"}]}], "]"}]}], "+", 
           RowBox[{
            FractionBox["15", "4"], " ", 
            RowBox[{"D", "[", 
             RowBox[{
              RowBox[{"a", "[", 
               RowBox[{"x", ",", "y"}], "]"}], ",", 
              RowBox[{"{", 
               RowBox[{"x", ",", "2"}], "}"}]}], "]"}], " ", 
            RowBox[{"D", "[", 
             RowBox[{
              RowBox[{"u", "[", 
               RowBox[{"x", ",", "y"}], "]"}], ",", 
              RowBox[{"{", 
               RowBox[{"x", ",", "4"}], "}"}]}], "]"}]}], "+", 
           RowBox[{
            FractionBox["5", "2"], " ", 
            RowBox[{"D", "[", 
             RowBox[{
              RowBox[{"a", "[", 
               RowBox[{"x", ",", "y"}], "]"}], ",", 
              RowBox[{"{", 
               RowBox[{"x", ",", "3"}], "}"}]}], "]"}], " ", 
            RowBox[{"D", "[", 
             RowBox[{
              RowBox[{"u", "[", 
               RowBox[{"x", ",", "y"}], "]"}], ",", 
              RowBox[{"{", 
               RowBox[{"x", ",", "3"}], "}"}]}], "]"}]}], "+", 
           RowBox[{
            FractionBox["15", "16"], "  ", 
            RowBox[{"D", "[", 
             RowBox[{
              RowBox[{"a", "[", 
               RowBox[{"x", ",", "y"}], "]"}], ",", 
              RowBox[{"{", 
               RowBox[{"x", ",", "4"}], "}"}]}], "]"}], 
            RowBox[{"D", "[", 
             RowBox[{
              RowBox[{"u", "[", 
               RowBox[{"x", ",", "y"}], "]"}], ",", 
              RowBox[{"{", 
               RowBox[{"x", ",", "2"}], "}"}]}], "]"}]}], "+", 
           RowBox[{
            FractionBox["3", "16"], " ", 
            RowBox[{"D", "[", 
             RowBox[{
              RowBox[{"a", "[", 
               RowBox[{"x", ",", "y"}], "]"}], ",", 
              RowBox[{"{", 
               RowBox[{"x", ",", "5"}], "}"}]}], "]"}], 
            RowBox[{"D", "[", 
             RowBox[{
              RowBox[{"u", "[", 
               RowBox[{"x", ",", "y"}], "]"}], ",", "x"}], "]"}]}]}], ")"}], "/.",
          "U6x"}], "/.", "U5x"}], "/.", "U4x"}], "/.", "U3x"}], "/.", "Uxx"}],
     ")"}], "==", 
   RowBox[{"F5x", "-", 
    RowBox[{
     FractionBox[
      RowBox[{"2", "  ", 
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{"a", "[", 
          RowBox[{"x", ",", "y"}], "]"}], ",", "x"}], "]"}]}], 
      RowBox[{"a", "[", 
       RowBox[{"x", ",", "y"}], "]"}]], "F4x"}], "+", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       FractionBox[
        RowBox[{"8", "  ", 
         SuperscriptBox[
          RowBox[{"D", "[", 
           RowBox[{
            RowBox[{"a", "[", 
             RowBox[{"x", ",", "y"}], "]"}], ",", "x"}], "]"}], "2"]}], 
        SuperscriptBox[
         RowBox[{"a", "[", 
          RowBox[{"x", ",", "y"}], "]"}], "2"]], "-", 
       FractionBox[
        RowBox[{"25", "  ", 
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{"a", "[", 
            RowBox[{"x", ",", "y"}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"x", ",", "2"}], "}"}]}], "]"}]}], 
        RowBox[{"4", " ", 
         RowBox[{"a", "[", 
          RowBox[{"x", ",", "y"}], "]"}]}]]}], ")"}], "F3x"}], "+", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       FractionBox[
        RowBox[{"123", "  ", 
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{"a", "[", 
            RowBox[{"x", ",", "y"}], "]"}], ",", "x"}], "]"}], " ", 
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{"a", "[", 
            RowBox[{"x", ",", "y"}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"x", ",", "2"}], "}"}]}], "]"}]}], 
        RowBox[{"4", " ", 
         SuperscriptBox[
          RowBox[{"a", "[", 
           RowBox[{"x", ",", "y"}], "]"}], "2"]}]], "-", 
       FractionBox[
        RowBox[{"24", "  ", 
         SuperscriptBox[
          RowBox[{"D", "[", 
           RowBox[{
            RowBox[{"a", "[", 
             RowBox[{"x", ",", "y"}], "]"}], ",", "x"}], "]"}], "3"]}], 
        SuperscriptBox[
         RowBox[{"a", "[", 
          RowBox[{"x", ",", "y"}], "]"}], "3"]], "-", 
       FractionBox[
        RowBox[{"15", "  ", 
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{"a", "[", 
            RowBox[{"x", ",", "y"}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"x", ",", "3"}], "}"}]}], "]"}]}], 
        RowBox[{"2", " ", 
         RowBox[{"a", "[", 
          RowBox[{"x", ",", "y"}], "]"}]}]]}], ")"}], "Fxx"}], "+", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       FractionBox[
        RowBox[{"48", "  ", 
         SuperscriptBox[
          RowBox[{"D", "[", 
           RowBox[{
            RowBox[{"a", "[", 
             RowBox[{"x", ",", "y"}], "]"}], ",", "x"}], "]"}], "4"]}], 
        SuperscriptBox[
         RowBox[{"a", "[", 
          RowBox[{"x", ",", "y"}], "]"}], "4"]], "+", 
       FractionBox[
        RowBox[{"23", "  ", 
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{"a", "[", 
            RowBox[{"x", ",", "y"}], "]"}], ",", "x"}], "]"}], " ", 
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{"a", "[", 
            RowBox[{"x", ",", "y"}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"x", ",", "3"}], "}"}]}], "]"}]}], 
        SuperscriptBox[
         RowBox[{"a", "[", 
          RowBox[{"x", ",", "y"}], "]"}], "2"]], "+", 
       FractionBox[
        RowBox[{"75", "  ", 
         SuperscriptBox[
          RowBox[{"D", "[", 
           RowBox[{
            RowBox[{"a", "[", 
             RowBox[{"x", ",", "y"}], "]"}], ",", 
            RowBox[{"{", 
             RowBox[{"x", ",", "2"}], "}"}]}], "]"}], "2"]}], 
        RowBox[{"4", " ", 
         SuperscriptBox[
          RowBox[{"a", "[", 
           RowBox[{"x", ",", "y"}], "]"}], "2"]}]], "-", 
       FractionBox[
        RowBox[{"171", "  ", 
         SuperscriptBox[
          RowBox[{"D", "[", 
           RowBox[{
            RowBox[{"a", "[", 
             RowBox[{"x", ",", "y"}], "]"}], ",", "x"}], "]"}], "2"], " ", 
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{"a", "[", 
            RowBox[{"x", ",", "y"}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"x", ",", "2"}], "}"}]}], "]"}]}], 
        RowBox[{"2", " ", 
         SuperscriptBox[
          RowBox[{"a", "[", 
           RowBox[{"x", ",", "y"}], "]"}], "3"]}]], "-", 
       FractionBox[
        RowBox[{"65", "  ", 
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{"a", "[", 
            RowBox[{"x", ",", "y"}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"x", ",", "4"}], "}"}]}], "]"}]}], 
        RowBox[{"16", " ", 
         RowBox[{"a", "[", 
          RowBox[{"x", ",", "y"}], "]"}]}]]}], ")"}], "Fx"}], "+", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"-", 
         FractionBox["13", "16"]}], "  ", 
        RowBox[{"D", "[", 
         RowBox[{
          RowBox[{"a", "[", 
           RowBox[{"x", ",", "y"}], "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"x", ",", "5"}], "}"}]}], "]"}]}], "+", 
       FractionBox[
        RowBox[{"97", " ", 
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{"a", "[", 
            RowBox[{"x", ",", "y"}], "]"}], ",", "x"}], "]"}], " ", 
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{"a", "[", 
            RowBox[{"x", ",", "y"}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"x", ",", "4"}], "}"}]}], "]"}]}], 
        RowBox[{"16", " ", 
         RowBox[{"a", "[", 
          RowBox[{"x", ",", "y"}], "]"}]}]], "+", 
       FractionBox[
        RowBox[{"55", "  ", 
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{"a", "[", 
            RowBox[{"x", ",", "y"}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"x", ",", "2"}], "}"}]}], "]"}], " ", 
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{"a", "[", 
            RowBox[{"x", ",", "y"}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"x", ",", "3"}], "}"}]}], "]"}]}], 
        RowBox[{"4", " ", 
         RowBox[{"a", "[", 
          RowBox[{"x", ",", "y"}], "]"}]}]], "-", 
       FractionBox[
        RowBox[{"99", " ", 
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{"a", "[", 
            RowBox[{"x", ",", "y"}], "]"}], ",", "x"}], "]"}], "  ", 
         SuperscriptBox[
          RowBox[{"D", "[", 
           RowBox[{
            RowBox[{"a", "[", 
             RowBox[{"x", ",", "y"}], "]"}], ",", 
            RowBox[{"{", 
             RowBox[{"x", ",", "2"}], "}"}]}], "]"}], "2"]}], 
        RowBox[{"2", " ", 
         SuperscriptBox[
          RowBox[{"a", "[", 
           RowBox[{"x", ",", "y"}], "]"}], "2"]}]], "-", 
       FractionBox[
        RowBox[{"31", " ", 
         SuperscriptBox[
          RowBox[{"D", "[", 
           RowBox[{
            RowBox[{"a", "[", 
             RowBox[{"x", ",", "y"}], "]"}], ",", "x"}], "]"}], "2"], "  ", 
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{"a", "[", 
            RowBox[{"x", ",", "y"}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"x", ",", "3"}], "}"}]}], "]"}]}], 
        SuperscriptBox[
         RowBox[{"a", "[", 
          RowBox[{"x", ",", "y"}], "]"}], "2"]], "+", 
       FractionBox[
        RowBox[{"219", " ", 
         SuperscriptBox[
          RowBox[{"D", "[", 
           RowBox[{
            RowBox[{"a", "[", 
             RowBox[{"x", ",", "y"}], "]"}], ",", "x"}], "]"}], "3"], " ", 
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{"a", "[", 
            RowBox[{"x", ",", "y"}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"x", ",", "2"}], "}"}]}], "]"}]}], 
        RowBox[{"2", " ", 
         SuperscriptBox[
          RowBox[{"a", "[", 
           RowBox[{"x", ",", "y"}], "]"}], "3"]}]], "-", 
       FractionBox[
        RowBox[{"48", " ", 
         SuperscriptBox[
          RowBox[{"D", "[", 
           RowBox[{
            RowBox[{"a", "[", 
             RowBox[{"x", ",", "y"}], "]"}], ",", "x"}], "]"}], "5"]}], 
        SuperscriptBox[
         RowBox[{"a", "[", 
          RowBox[{"x", ",", "y"}], "]"}], "4"]]}], ")"}], 
     RowBox[{"D", "[", 
      RowBox[{
       RowBox[{"u", "[", 
        RowBox[{"x", ",", "y"}], "]"}], ",", "x"}], "]"}]}]}]}], "//", 
  "Simplify"}]}], "Input",
 CellChangeTimes->{{3.616880436485195*^9, 3.616880466252344*^9}, {
   3.616881086821266*^9, 3.6168811067402353`*^9}, {3.616881802316248*^9, 
   3.616881808621792*^9}, 3.616881972841799*^9, {3.616882004199554*^9, 
   3.61688203900497*^9}, 3.616882212596981*^9, {3.6168824240993233`*^9, 
   3.616882428926476*^9}, {3.616882514734304*^9, 3.6168825194212646`*^9}, {
   3.6168826080933332`*^9, 3.616882693889792*^9}, {3.6168827400287657`*^9, 
   3.616882787725453*^9}, {3.616883329809713*^9, 3.616883338959725*^9}, {
   3.616883409090179*^9, 3.61688342964977*^9}, {3.616883502101166*^9, 
   3.61688362100773*^9}, {3.616883840398931*^9, 3.616883841391746*^9}, 
   3.6168839949031677`*^9, {3.616884209203794*^9, 3.616884266705114*^9}, {
   3.6168843074458313`*^9, 3.616884349291943*^9}, {3.616884384243463*^9, 
   3.616884386468799*^9}, {3.616888185974758*^9, 3.616888327800438*^9}, {
   3.616888365062058*^9, 3.616888394308463*^9}, {3.616888998449547*^9, 
   3.616889034089492*^9}, {3.616889175567835*^9, 3.616889209314928*^9}, {
   3.616889412891614*^9, 3.616889413981415*^9}, {3.616889694470027*^9, 
   3.616889697295431*^9}, {3.616889727952186*^9, 3.616889748268984*^9}, {
   3.61688978631791*^9, 3.616889788751211*^9}, {3.616889871921382*^9, 
   3.616889900177864*^9}, {3.6168900029363613`*^9, 3.616890054782543*^9}, {
   3.616890227880625*^9, 3.616890261945928*^9}}],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{
  3.616880468082386*^9, {3.616881092347999*^9, 3.6168811072380447`*^9}, {
   3.6168818030992537`*^9, 3.616881809342597*^9}, 3.61688197408602*^9, {
   3.616882016557227*^9, 3.616882039761175*^9}, 3.616882213591567*^9, 
   3.616882487343513*^9, 3.616882520312972*^9, {3.616882590972269*^9, 
   3.616882694818695*^9}, 3.616882788454105*^9, {3.616883318747244*^9, 
   3.616883339690234*^9}, 3.616883430490177*^9, 3.616883503443121*^9, {
   3.616883586490489*^9, 3.616883622508535*^9}, 3.616883843089304*^9, 
   3.616883995837738*^9, 3.616884224791485*^9, 3.616884268655451*^9, 
   3.616884350165491*^9, 3.616884393563313*^9, 3.6168882512367907`*^9, 
   3.616888329160029*^9, 3.616888395006948*^9, 3.61688903609765*^9, 
   3.616889210830132*^9, 3.616889416657709*^9, 3.616889711691063*^9, 
   3.6168898085345097`*^9, {3.616889890446889*^9, 3.6168899011720867`*^9}, 
   3.616890021999217*^9, 3.616890263346528*^9, 3.616890298572763*^9}],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{
  3.616880468082386*^9, {3.616881092347999*^9, 3.6168811072380447`*^9}, {
   3.6168818030992537`*^9, 3.616881809342597*^9}, 3.61688197408602*^9, {
   3.616882016557227*^9, 3.616882039761175*^9}, 3.616882213591567*^9, 
   3.616882487343513*^9, 3.616882520312972*^9, {3.616882590972269*^9, 
   3.616882694818695*^9}, 3.616882788454105*^9, {3.616883318747244*^9, 
   3.616883339690234*^9}, 3.616883430490177*^9, 3.616883503443121*^9, {
   3.616883586490489*^9, 3.616883622508535*^9}, 3.616883843089304*^9, 
   3.616883995837738*^9, 3.616884224791485*^9, 3.616884268655451*^9, 
   3.616884350165491*^9, 3.616884393563313*^9, 3.6168882512367907`*^9, 
   3.616888329160029*^9, 3.616888395006948*^9, 3.61688903609765*^9, 
   3.616889210830132*^9, 3.616889416657709*^9, 3.616889711691063*^9, 
   3.6168898085345097`*^9, {3.616889890446889*^9, 3.6168899011720867`*^9}, 
   3.616890021999217*^9, 3.616890263346528*^9, 3.616890298575733*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"b", "[", 
             RowBox[{"x", ",", "y"}], "]"}], 
            RowBox[{"D", "[", 
             RowBox[{
              RowBox[{"u", "[", 
               RowBox[{"x", ",", "y"}], "]"}], ",", 
              RowBox[{"{", 
               RowBox[{"y", ",", "4"}], "}"}]}], "]"}]}], "+", 
           RowBox[{"2", 
            RowBox[{"D", "[", 
             RowBox[{
              RowBox[{"b", "[", 
               RowBox[{"x", ",", "y"}], "]"}], ",", "y"}], "]"}], 
            RowBox[{"D", "[", 
             RowBox[{
              RowBox[{"u", "[", 
               RowBox[{"x", ",", "y"}], "]"}], ",", 
              RowBox[{"{", 
               RowBox[{"y", ",", "3"}], "}"}]}], "]"}]}], "+", 
           RowBox[{
            FractionBox["3", "2"], 
            RowBox[{"D", "[", 
             RowBox[{
              RowBox[{"b", "[", 
               RowBox[{"x", ",", "y"}], "]"}], ",", 
              RowBox[{"{", 
               RowBox[{"y", ",", "2"}], "}"}]}], "]"}], 
            RowBox[{"D", "[", 
             RowBox[{
              RowBox[{"u", "[", 
               RowBox[{"x", ",", "y"}], "]"}], ",", 
              RowBox[{"{", 
               RowBox[{"y", ",", "2"}], "}"}]}], "]"}]}], "+", 
           RowBox[{
            FractionBox["1", "2"], 
            RowBox[{"D", "[", 
             RowBox[{
              RowBox[{"b", "[", 
               RowBox[{"x", ",", "y"}], "]"}], ",", 
              RowBox[{"{", 
               RowBox[{"y", ",", "3"}], "}"}]}], "]"}], 
            RowBox[{"D", "[", 
             RowBox[{
              RowBox[{"u", "[", 
               RowBox[{"x", ",", "y"}], "]"}], ",", "y"}], "]"}]}]}], ")"}], "/.",
          "U6y"}], "/.", "U5y"}], "/.", "U4y"}], "/.", "U3y"}], "/.", "Uyy"}],
     " ", ")"}], "\[Equal]", 
   RowBox[{"F3y", "-", 
    RowBox[{
     FractionBox[
      RowBox[{" ", 
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{"b", "[", 
          RowBox[{"x", ",", "y"}], "]"}], ",", "y"}], "]"}]}], 
      RowBox[{"b", "[", 
       RowBox[{"x", ",", "y"}], "]"}]], "Fyy"}], "+", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       FractionBox[
        RowBox[{"2", "  ", 
         SuperscriptBox[
          RowBox[{"D", "[", 
           RowBox[{
            RowBox[{"b", "[", 
             RowBox[{"x", ",", "y"}], "]"}], ",", "y"}], "]"}], "2"]}], 
        SuperscriptBox[
         RowBox[{"b", "[", 
          RowBox[{"x", ",", "y"}], "]"}], "2"]], "-", 
       FractionBox[
        RowBox[{"3", "  ", 
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{"b", "[", 
            RowBox[{"x", ",", "y"}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"y", ",", "2"}], "}"}]}], "]"}]}], 
        RowBox[{"2", " ", 
         RowBox[{"b", "[", 
          RowBox[{"x", ",", "y"}], "]"}]}]]}], ")"}], "Fy"}], "+", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       FractionBox[
        RowBox[{"5", " ", 
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{"b", "[", 
            RowBox[{"x", ",", "y"}], "]"}], ",", "y"}], "]"}], "  ", 
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{"b", "[", 
            RowBox[{"x", ",", "y"}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"y", ",", "2"}], "}"}]}], "]"}]}], 
        RowBox[{"2", " ", 
         RowBox[{"b", "[", 
          RowBox[{"x", ",", "y"}], "]"}]}]], "-", 
       FractionBox[
        RowBox[{"2", " ", 
         SuperscriptBox[
          RowBox[{"D", "[", 
           RowBox[{
            RowBox[{"b", "[", 
             RowBox[{"x", ",", "y"}], "]"}], ",", "y"}], "]"}], "3"], " "}], 
        SuperscriptBox[
         RowBox[{"b", "[", 
          RowBox[{"x", ",", "y"}], "]"}], "2"]], "-", 
       RowBox[{
        FractionBox["1", "2"], "  ", 
        RowBox[{"D", "[", 
         RowBox[{
          RowBox[{"b", "[", 
           RowBox[{"x", ",", "y"}], "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"y", ",", "3"}], "}"}]}], "]"}]}]}], ")"}], 
     RowBox[{"D", "[", 
      RowBox[{
       RowBox[{"u", "[", 
        RowBox[{"x", ",", "y"}], "]"}], ",", "y"}], "]"}]}]}]}], "//", 
  "Simplify"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"b", "[", 
             RowBox[{"x", ",", "y"}], "]"}], " ", 
            RowBox[{"D", "[", 
             RowBox[{
              RowBox[{"u", "[", 
               RowBox[{"x", ",", "y"}], "]"}], ",", 
              RowBox[{"{", 
               RowBox[{"y", ",", "6"}], "}"}]}], "]"}]}], "+", 
           RowBox[{"3", " ", 
            RowBox[{"D", "[", 
             RowBox[{
              RowBox[{"b", "[", 
               RowBox[{"x", ",", "y"}], "]"}], ",", "y"}], "]"}], " ", 
            RowBox[{"D", "[", 
             RowBox[{
              RowBox[{"u", "[", 
               RowBox[{"x", ",", "y"}], "]"}], ",", 
              RowBox[{"{", 
               RowBox[{"y", ",", "5"}], "}"}]}], "]"}]}], "+", 
           RowBox[{
            FractionBox["15", "4"], " ", 
            RowBox[{"D", "[", 
             RowBox[{
              RowBox[{"b", "[", 
               RowBox[{"x", ",", "y"}], "]"}], ",", 
              RowBox[{"{", 
               RowBox[{"y", ",", "2"}], "}"}]}], "]"}], " ", 
            RowBox[{"D", "[", 
             RowBox[{
              RowBox[{"u", "[", 
               RowBox[{"x", ",", "y"}], "]"}], ",", 
              RowBox[{"{", 
               RowBox[{"y", ",", "4"}], "}"}]}], "]"}]}], "+", 
           RowBox[{
            FractionBox["5", "2"], " ", 
            RowBox[{"D", "[", 
             RowBox[{
              RowBox[{"b", "[", 
               RowBox[{"x", ",", "y"}], "]"}], ",", 
              RowBox[{"{", 
               RowBox[{"y", ",", "3"}], "}"}]}], "]"}], " ", 
            RowBox[{"D", "[", 
             RowBox[{
              RowBox[{"u", "[", 
               RowBox[{"x", ",", "y"}], "]"}], ",", 
              RowBox[{"{", 
               RowBox[{"y", ",", "3"}], "}"}]}], "]"}]}], "+", 
           RowBox[{
            FractionBox["15", "16"], "  ", 
            RowBox[{"D", "[", 
             RowBox[{
              RowBox[{"b", "[", 
               RowBox[{"x", ",", "y"}], "]"}], ",", 
              RowBox[{"{", 
               RowBox[{"y", ",", "4"}], "}"}]}], "]"}], 
            RowBox[{"D", "[", 
             RowBox[{
              RowBox[{"u", "[", 
               RowBox[{"x", ",", "y"}], "]"}], ",", 
              RowBox[{"{", 
               RowBox[{"y", ",", "2"}], "}"}]}], "]"}]}], "+", 
           RowBox[{
            FractionBox["3", "16"], " ", 
            RowBox[{"D", "[", 
             RowBox[{
              RowBox[{"b", "[", 
               RowBox[{"x", ",", "y"}], "]"}], ",", 
              RowBox[{"{", 
               RowBox[{"y", ",", "5"}], "}"}]}], "]"}], 
            RowBox[{"D", "[", 
             RowBox[{
              RowBox[{"u", "[", 
               RowBox[{"x", ",", "y"}], "]"}], ",", "y"}], "]"}]}]}], ")"}], "/.",
          "U6y"}], "/.", "U5y"}], "/.", "U4y"}], "/.", "U3y"}], "/.", "Uyy"}],
     ")"}], "==", 
   RowBox[{"F5y", "-", 
    RowBox[{
     FractionBox[
      RowBox[{"2", "  ", 
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{"b", "[", 
          RowBox[{"x", ",", "y"}], "]"}], ",", "y"}], "]"}]}], 
      RowBox[{"b", "[", 
       RowBox[{"x", ",", "y"}], "]"}]], "F4y"}], "+", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       FractionBox[
        RowBox[{"8", "  ", 
         SuperscriptBox[
          RowBox[{"D", "[", 
           RowBox[{
            RowBox[{"b", "[", 
             RowBox[{"x", ",", "y"}], "]"}], ",", "y"}], "]"}], "2"]}], 
        SuperscriptBox[
         RowBox[{"b", "[", 
          RowBox[{"x", ",", "y"}], "]"}], "2"]], "-", 
       FractionBox[
        RowBox[{"25", "  ", 
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{"b", "[", 
            RowBox[{"x", ",", "y"}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"y", ",", "2"}], "}"}]}], "]"}]}], 
        RowBox[{"4", " ", 
         RowBox[{"b", "[", 
          RowBox[{"x", ",", "y"}], "]"}]}]]}], ")"}], "F3y"}], "+", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       FractionBox[
        RowBox[{"123", "  ", 
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{"b", "[", 
            RowBox[{"x", ",", "y"}], "]"}], ",", "y"}], "]"}], " ", 
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{"b", "[", 
            RowBox[{"x", ",", "y"}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"y", ",", "2"}], "}"}]}], "]"}]}], 
        RowBox[{"4", " ", 
         SuperscriptBox[
          RowBox[{"b", "[", 
           RowBox[{"x", ",", "y"}], "]"}], "2"]}]], "-", 
       FractionBox[
        RowBox[{"24", "  ", 
         SuperscriptBox[
          RowBox[{"D", "[", 
           RowBox[{
            RowBox[{"b", "[", 
             RowBox[{"x", ",", "y"}], "]"}], ",", "y"}], "]"}], "3"]}], 
        SuperscriptBox[
         RowBox[{"b", "[", 
          RowBox[{"x", ",", "y"}], "]"}], "3"]], "-", 
       FractionBox[
        RowBox[{"15", "  ", 
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{"b", "[", 
            RowBox[{"x", ",", "y"}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"y", ",", "3"}], "}"}]}], "]"}]}], 
        RowBox[{"2", " ", 
         RowBox[{"b", "[", 
          RowBox[{"x", ",", "y"}], "]"}]}]]}], ")"}], "Fyy"}], "+", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       FractionBox[
        RowBox[{"48", "  ", 
         SuperscriptBox[
          RowBox[{"D", "[", 
           RowBox[{
            RowBox[{"b", "[", 
             RowBox[{"x", ",", "y"}], "]"}], ",", "y"}], "]"}], "4"]}], 
        SuperscriptBox[
         RowBox[{"b", "[", 
          RowBox[{"x", ",", "y"}], "]"}], "4"]], "+", 
       FractionBox[
        RowBox[{"23", "  ", 
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{"b", "[", 
            RowBox[{"x", ",", "y"}], "]"}], ",", "y"}], "]"}], " ", 
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{"b", "[", 
            RowBox[{"x", ",", "y"}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"y", ",", "3"}], "}"}]}], "]"}]}], 
        SuperscriptBox[
         RowBox[{"b", "[", 
          RowBox[{"x", ",", "y"}], "]"}], "2"]], "+", 
       FractionBox[
        RowBox[{"75", "  ", 
         SuperscriptBox[
          RowBox[{"D", "[", 
           RowBox[{
            RowBox[{"b", "[", 
             RowBox[{"x", ",", "y"}], "]"}], ",", 
            RowBox[{"{", 
             RowBox[{"y", ",", "2"}], "}"}]}], "]"}], "2"]}], 
        RowBox[{"4", " ", 
         SuperscriptBox[
          RowBox[{"b", "[", 
           RowBox[{"x", ",", "y"}], "]"}], "2"]}]], "-", 
       FractionBox[
        RowBox[{"171", "  ", 
         SuperscriptBox[
          RowBox[{"D", "[", 
           RowBox[{
            RowBox[{"b", "[", 
             RowBox[{"x", ",", "y"}], "]"}], ",", "y"}], "]"}], "2"], " ", 
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{"b", "[", 
            RowBox[{"x", ",", "y"}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"y", ",", "2"}], "}"}]}], "]"}]}], 
        RowBox[{"2", " ", 
         SuperscriptBox[
          RowBox[{"b", "[", 
           RowBox[{"x", ",", "y"}], "]"}], "3"]}]], "-", 
       FractionBox[
        RowBox[{"65", "  ", 
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{"b", "[", 
            RowBox[{"x", ",", "y"}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"y", ",", "4"}], "}"}]}], "]"}]}], 
        RowBox[{"16", " ", 
         RowBox[{"b", "[", 
          RowBox[{"x", ",", "y"}], "]"}]}]]}], ")"}], "Fy"}], "+", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"-", 
         FractionBox["13", "16"]}], "  ", 
        RowBox[{"D", "[", 
         RowBox[{
          RowBox[{"b", "[", 
           RowBox[{"x", ",", "y"}], "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"y", ",", "5"}], "}"}]}], "]"}]}], "+", 
       FractionBox[
        RowBox[{"97", " ", 
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{"b", "[", 
            RowBox[{"x", ",", "y"}], "]"}], ",", "y"}], "]"}], " ", 
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{"b", "[", 
            RowBox[{"x", ",", "y"}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"y", ",", "4"}], "}"}]}], "]"}]}], 
        RowBox[{"16", " ", 
         RowBox[{"b", "[", 
          RowBox[{"x", ",", "y"}], "]"}]}]], "+", 
       FractionBox[
        RowBox[{"55", "  ", 
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{"b", "[", 
            RowBox[{"x", ",", "y"}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"y", ",", "2"}], "}"}]}], "]"}], " ", 
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{"b", "[", 
            RowBox[{"x", ",", "y"}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"y", ",", "3"}], "}"}]}], "]"}]}], 
        RowBox[{"4", " ", 
         RowBox[{"b", "[", 
          RowBox[{"x", ",", "y"}], "]"}]}]], "-", 
       FractionBox[
        RowBox[{"99", " ", 
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{"b", "[", 
            RowBox[{"x", ",", "y"}], "]"}], ",", "y"}], "]"}], "  ", 
         SuperscriptBox[
          RowBox[{"D", "[", 
           RowBox[{
            RowBox[{"b", "[", 
             RowBox[{"x", ",", "y"}], "]"}], ",", 
            RowBox[{"{", 
             RowBox[{"y", ",", "2"}], "}"}]}], "]"}], "2"]}], 
        RowBox[{"2", " ", 
         SuperscriptBox[
          RowBox[{"b", "[", 
           RowBox[{"x", ",", "y"}], "]"}], "2"]}]], "-", 
       FractionBox[
        RowBox[{"31", " ", 
         SuperscriptBox[
          RowBox[{"D", "[", 
           RowBox[{
            RowBox[{"b", "[", 
             RowBox[{"x", ",", "y"}], "]"}], ",", "y"}], "]"}], "2"], "  ", 
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{"b", "[", 
            RowBox[{"x", ",", "y"}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"y", ",", "3"}], "}"}]}], "]"}]}], 
        SuperscriptBox[
         RowBox[{"b", "[", 
          RowBox[{"x", ",", "y"}], "]"}], "2"]], "+", 
       FractionBox[
        RowBox[{"219", " ", 
         SuperscriptBox[
          RowBox[{"D", "[", 
           RowBox[{
            RowBox[{"b", "[", 
             RowBox[{"x", ",", "y"}], "]"}], ",", "y"}], "]"}], "3"], " ", 
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{"b", "[", 
            RowBox[{"x", ",", "y"}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"y", ",", "2"}], "}"}]}], "]"}]}], 
        RowBox[{"2", " ", 
         SuperscriptBox[
          RowBox[{"b", "[", 
           RowBox[{"x", ",", "y"}], "]"}], "3"]}]], "-", 
       FractionBox[
        RowBox[{"48", " ", 
         SuperscriptBox[
          RowBox[{"D", "[", 
           RowBox[{
            RowBox[{"b", "[", 
             RowBox[{"x", ",", "y"}], "]"}], ",", "y"}], "]"}], "5"]}], 
        SuperscriptBox[
         RowBox[{"b", "[", 
          RowBox[{"x", ",", "y"}], "]"}], "4"]]}], ")"}], 
     RowBox[{"D", "[", 
      RowBox[{
       RowBox[{"u", "[", 
        RowBox[{"x", ",", "y"}], "]"}], ",", "y"}], "]"}]}]}]}], "//", 
  "Simplify"}]}], "Input",
 CellChangeTimes->{{3.6168874325911827`*^9, 3.6168874471048927`*^9}, {
   3.616887701664236*^9, 3.616887828953306*^9}, 3.61688787465709*^9, {
   3.6168879498037853`*^9, 3.616888042197806*^9}, {3.616890329706236*^9, 
   3.616890633494821*^9}}],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{3.616887875615541*^9, 3.616890645335148*^9}],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{3.616887875615541*^9, 3.616890645481247*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"F3x", "-", 
  RowBox[{
   FractionBox[
    RowBox[{" ", 
     RowBox[{"D", "[", 
      RowBox[{
       RowBox[{"a", "[", 
        RowBox[{"x", ",", "y"}], "]"}], ",", "x"}], "]"}]}], 
    RowBox[{"a", "[", 
     RowBox[{"x", ",", "y"}], "]"}]], "Fxx"}], "+", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     FractionBox[
      RowBox[{"2", "  ", 
       SuperscriptBox[
        RowBox[{"D", "[", 
         RowBox[{
          RowBox[{"a", "[", 
           RowBox[{"x", ",", "y"}], "]"}], ",", "x"}], "]"}], "2"]}], 
      SuperscriptBox[
       RowBox[{"a", "[", 
        RowBox[{"x", ",", "y"}], "]"}], "2"]], "-", 
     FractionBox[
      RowBox[{"3", "  ", 
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{"a", "[", 
          RowBox[{"x", ",", "y"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"x", ",", "2"}], "}"}]}], "]"}]}], 
      RowBox[{"2", " ", 
       RowBox[{"a", "[", 
        RowBox[{"x", ",", "y"}], "]"}]}]]}], ")"}], "Fx"}], "+", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     FractionBox[
      RowBox[{"5", " ", 
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{"a", "[", 
          RowBox[{"x", ",", "y"}], "]"}], ",", "x"}], "]"}], "  ", 
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{"a", "[", 
          RowBox[{"x", ",", "y"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"x", ",", "2"}], "}"}]}], "]"}]}], 
      RowBox[{"2", " ", 
       RowBox[{"a", "[", 
        RowBox[{"x", ",", "y"}], "]"}]}]], "-", 
     FractionBox[
      RowBox[{"2", " ", 
       SuperscriptBox[
        RowBox[{"D", "[", 
         RowBox[{
          RowBox[{"a", "[", 
           RowBox[{"x", ",", "y"}], "]"}], ",", "x"}], "]"}], "3"], " "}], 
      SuperscriptBox[
       RowBox[{"a", "[", 
        RowBox[{"x", ",", "y"}], "]"}], "2"]], "-", 
     RowBox[{
      FractionBox["1", "2"], "  ", 
      RowBox[{"D", "[", 
       RowBox[{
        RowBox[{"a", "[", 
         RowBox[{"x", ",", "y"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"x", ",", "3"}], "}"}]}], "]"}]}]}], ")"}], 
   RowBox[{"D", "[", 
    RowBox[{
     RowBox[{"u", "[", 
      RowBox[{"x", ",", "y"}], "]"}], ",", "x"}], 
    "]"}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"a", "[", 
    RowBox[{"x", ",", "y"}], "]"}], 
   RowBox[{"D", "[", 
    RowBox[{
     RowBox[{"u", "[", 
      RowBox[{"x", ",", "y"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "4"}], "}"}]}], "]"}]}], "+", 
  RowBox[{"2", 
   RowBox[{"D", "[", 
    RowBox[{
     RowBox[{"a", "[", 
      RowBox[{"x", ",", "y"}], "]"}], ",", "x"}], "]"}], 
   RowBox[{"D", "[", 
    RowBox[{
     RowBox[{"u", "[", 
      RowBox[{"x", ",", "y"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "3"}], "}"}]}], "]"}]}], "+", 
  RowBox[{
   FractionBox["3", "2"], 
   RowBox[{"D", "[", 
    RowBox[{
     RowBox[{"a", "[", 
      RowBox[{"x", ",", "y"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "2"}], "}"}]}], "]"}], 
   RowBox[{"D", "[", 
    RowBox[{
     RowBox[{"u", "[", 
      RowBox[{"x", ",", "y"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "2"}], "}"}]}], "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], 
   RowBox[{"D", "[", 
    RowBox[{
     RowBox[{"a", "[", 
      RowBox[{"x", ",", "y"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "3"}], "}"}]}], "]"}], 
   RowBox[{"D", "[", 
    RowBox[{
     RowBox[{"u", "[", 
      RowBox[{"x", ",", "y"}], "]"}], ",", "x"}], "]"}]}]}]}], "Input",
 CellChangeTimes->{{3.616972677087739*^9, 3.616972740427799*^9}, 
   3.616972856755219*^9, {3.616974469818297*^9, 3.616974471131716*^9}, {
   3.617049690781724*^9, 3.617049719122374*^9}, {3.617050270241647*^9, 
   3.617050302891128*^9}, 3.6171253380036583`*^9}],

Cell[BoxData[
 RowBox[{"F3x", "-", 
  FractionBox[
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "Axmh2"}], "+", "Axph2"}], ")"}], " ", "Fxx"}], 
   RowBox[{"2", " ", "hx", " ", 
    RowBox[{"a", "[", 
     RowBox[{"x", ",", "y"}], "]"}]}]], "+", 
  RowBox[{"Fx", " ", 
   RowBox[{"(", 
    RowBox[{
     FractionBox[
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "Axmh2"}], "+", "Axph2"}], ")"}], "2"], 
      RowBox[{"2", " ", 
       SuperscriptBox["hx", "2"], " ", 
       SuperscriptBox[
        RowBox[{"a", "[", 
         RowBox[{"x", ",", "y"}], "]"}], "2"]}]], "-", 
     FractionBox[
      RowBox[{"3", " ", 
       RowBox[{"(", 
        RowBox[{"Axmh2", "+", "Axph2", "-", 
         RowBox[{"2", " ", 
          RowBox[{"a", "[", 
           RowBox[{"x", ",", "y"}], "]"}]}]}], ")"}], " ", 
       RowBox[{
        SuperscriptBox["a", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"2", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"x", ",", "y"}], "]"}]}], 
      RowBox[{"2", " ", 
       SuperscriptBox["hx", "2"], " ", 
       RowBox[{"a", "[", 
        RowBox[{"x", ",", "y"}], "]"}]}]]}], ")"}]}], "+", 
  RowBox[{
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"1", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{"(", 
    RowBox[{
     FractionBox[
      RowBox[{"5", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "Axmh2"}], "+", "Axph2"}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"Axmh2", "+", "Axph2", "-", 
         RowBox[{"2", " ", 
          RowBox[{"a", "[", 
           RowBox[{"x", ",", "y"}], "]"}]}]}], ")"}]}], 
      RowBox[{"4", " ", 
       SuperscriptBox["hx", "3"], " ", 
       RowBox[{"a", "[", 
        RowBox[{"x", ",", "y"}], "]"}]}]], "-", 
     FractionBox[
      RowBox[{"2", " ", 
       SuperscriptBox[
        RowBox[{
         SuperscriptBox["a", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"1", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}], "3"]}], 
      SuperscriptBox[
       RowBox[{"a", "[", 
        RowBox[{"x", ",", "y"}], "]"}], "2"]], "-", 
     RowBox[{
      FractionBox["1", "2"], " ", 
      RowBox[{
       SuperscriptBox["a", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"3", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}]}]}], ")"}]}]}]], "Output",
 CellChangeTimes->{3.617049720695284*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   FractionBox["3", "2"], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"2", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"2", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"1", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"3", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"1", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"3", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   RowBox[{"a", "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"4", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}]}]], "Output",
 CellChangeTimes->{3.617049720700156*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"Axph2", " ", 
          FractionBox[
           RowBox[{"Uxph", "-", 
            RowBox[{"u", "[", 
             RowBox[{"x", ",", "y"}], "]"}]}], "hx"]}], "-", " ", 
         RowBox[{"Axmh2", " ", 
          FractionBox[
           RowBox[{
            RowBox[{"u", "[", 
             RowBox[{"x", ",", "y"}], "]"}], "-", "Uxmh"}], "hx"]}]}], ")"}], 
       
       FractionBox["1", "hx"]}], "-", 
      RowBox[{
       FractionBox[
        SuperscriptBox["hx", "2"], "12"], 
       RowBox[{"(", 
        RowBox[{"F3x", "-", 
         RowBox[{
          FractionBox["1", 
           RowBox[{"a", "[", 
            RowBox[{"x", ",", "y"}], "]"}]], 
          FractionBox[
           RowBox[{"Axph2", "-", "Axmh2"}], "hx"], "Fxx"}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             FractionBox["2", 
              SuperscriptBox[
               RowBox[{"a", "[", 
                RowBox[{"x", ",", "y"}], "]"}], "2"]], 
             SuperscriptBox[
              RowBox[{"(", 
               FractionBox[
                RowBox[{"Axph2", "-", "Axmh2"}], "hx"], ")"}], "2"]}], "-", 
            RowBox[{
             FractionBox["3", 
              RowBox[{"2", " ", 
               RowBox[{"a", "[", 
                RowBox[{"x", ",", "y"}], "]"}]}]], 
             FractionBox[
              RowBox[{"Axph2", "-", 
               RowBox[{"2", 
                RowBox[{"a", "[", 
                 RowBox[{"x", ",", "y"}], "]"}]}], "+", "Axmh2"}], 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{"hx", "/", "2"}], ")"}], "2"]]}]}], ")"}], "Fx"}], 
         "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             FractionBox[
              RowBox[{"5", " "}], 
              RowBox[{"2", " ", 
               RowBox[{"a", "[", 
                RowBox[{"x", ",", "y"}], "]"}]}]], 
             FractionBox[
              RowBox[{"Axph2", "-", "Axmh2"}], "hx"], 
             FractionBox[
              RowBox[{"Axph2", "-", 
               RowBox[{"2", 
                RowBox[{"a", "[", 
                 RowBox[{"x", ",", "y"}], "]"}]}], "+", "Axmh2"}], 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{"hx", "/", "2"}], ")"}], "2"]]}], "-", 
            RowBox[{
             FractionBox[
              RowBox[{"2", "  "}], 
              SuperscriptBox[
               RowBox[{"a", "[", 
                RowBox[{"x", ",", "y"}], "]"}], "2"]], 
             SuperscriptBox[
              RowBox[{"(", 
               FractionBox[
                RowBox[{"Axph2", "-", "Axmh2"}], "hx"], ")"}], "3"]}], "-", 
            RowBox[{
             FractionBox["1", "2"], "  ", 
             RowBox[{"D", "[", 
              RowBox[{
               RowBox[{"a", "[", 
                RowBox[{"x", ",", "y"}], "]"}], ",", 
               RowBox[{"{", 
                RowBox[{"x", ",", "3"}], "}"}]}], "]"}]}]}], ")"}], 
          RowBox[{"D", "[", 
           RowBox[{
            RowBox[{"u", "[", 
             RowBox[{"x", ",", "y"}], "]"}], ",", "x"}], "]"}]}]}], ")"}]}], 
      "-", 
      RowBox[{"D", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"a", "[", 
          RowBox[{"x", ",", "y"}], "]"}], 
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{"u", "[", 
            RowBox[{"x", ",", "y"}], "]"}], ",", "x"}], "]"}]}], ",", "x"}], 
       "]"}]}], "/.", 
     RowBox[{"Fx", "->", 
      RowBox[{"D", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"a", "[", 
          RowBox[{"x", ",", "y"}], "]"}], 
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{"u", "[", 
            RowBox[{"x", ",", "y"}], "]"}], ",", "x"}], "]"}]}], ",", "x"}], 
       "]"}]}]}], "/.", 
    RowBox[{"Fxx", "->", 
     RowBox[{"D", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"a", "[", 
         RowBox[{"x", ",", "y"}], "]"}], 
        RowBox[{"D", "[", 
         RowBox[{
          RowBox[{"u", "[", 
           RowBox[{"x", ",", "y"}], "]"}], ",", "x"}], "]"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "2"}], "}"}]}], "]"}]}]}], "/.", 
   RowBox[{"F3x", "->", 
    RowBox[{"D", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"a", "[", 
        RowBox[{"x", ",", "y"}], "]"}], 
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{"u", "[", 
          RowBox[{"x", ",", "y"}], "]"}], ",", "x"}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"x", ",", "3"}], "}"}]}], "]"}]}]}], "//", 
  "FullSimplify"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"Byph2", " ", 
          FractionBox[
           RowBox[{"Uyph", "-", 
            RowBox[{"u", "[", 
             RowBox[{"x", ",", "y"}], "]"}]}], "hy"]}], "-", " ", 
         RowBox[{"Bymh2", " ", 
          FractionBox[
           RowBox[{
            RowBox[{"u", "[", 
             RowBox[{"x", ",", "y"}], "]"}], "-", "Uymh"}], "hy"]}]}], ")"}], 
       
       FractionBox["1", "hy"]}], "-", 
      RowBox[{
       FractionBox[
        SuperscriptBox["hy", "2"], "12"], 
       RowBox[{"(", 
        RowBox[{"F3y", "-", 
         RowBox[{
          FractionBox[
           RowBox[{" ", "1"}], 
           RowBox[{"b", "[", 
            RowBox[{"x", ",", "y"}], "]"}]], 
          FractionBox[
           RowBox[{"Byph2", "-", "Bymh2"}], "hy"], "Fyy"}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             FractionBox["2", 
              SuperscriptBox[
               RowBox[{"b", "[", 
                RowBox[{"x", ",", "y"}], "]"}], "2"]], 
             SuperscriptBox[
              RowBox[{"(", 
               FractionBox[
                RowBox[{"Byph2", "-", "Bymh2"}], "hy"], ")"}], "2"]}], "-", 
            RowBox[{
             FractionBox["3", 
              RowBox[{"2", " ", 
               RowBox[{"b", "[", 
                RowBox[{"x", ",", "y"}], "]"}]}]], 
             FractionBox[
              RowBox[{"Byph2", "-", 
               RowBox[{"2", 
                RowBox[{"b", "[", 
                 RowBox[{"x", ",", "y"}], "]"}]}], "+", "Bymh2"}], 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{"hy", "/", "2"}], ")"}], "2"]]}]}], ")"}], "Fy"}], 
         "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             FractionBox["5", 
              RowBox[{"2", " ", 
               RowBox[{"b", "[", 
                RowBox[{"x", ",", "y"}], "]"}]}]], 
             FractionBox[
              RowBox[{"Byph2", "-", "Bymh2"}], "hy"], 
             FractionBox[
              RowBox[{"Byph2", "-", 
               RowBox[{"2", 
                RowBox[{"b", "[", 
                 RowBox[{"x", ",", "y"}], "]"}]}], "+", "Bymh2"}], 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{"hy", "/", "2"}], ")"}], "2"]]}], "-", 
            RowBox[{
             FractionBox[
              RowBox[{"2", " "}], 
              SuperscriptBox[
               RowBox[{"b", "[", 
                RowBox[{"x", ",", "y"}], "]"}], "2"]], 
             SuperscriptBox[
              RowBox[{"(", 
               FractionBox[
                RowBox[{"Byph2", "-", "Bymh2"}], "hy"], ")"}], "3"]}], "-", 
            RowBox[{
             FractionBox["1", "2"], "  ", 
             RowBox[{"D", "[", 
              RowBox[{
               RowBox[{"b", "[", 
                RowBox[{"x", ",", "y"}], "]"}], ",", 
               RowBox[{"{", 
                RowBox[{"y", ",", "3"}], "}"}]}], "]"}]}]}], ")"}], 
          RowBox[{"D", "[", 
           RowBox[{
            RowBox[{"u", "[", 
             RowBox[{"x", ",", "y"}], "]"}], ",", "y"}], "]"}]}]}], ")"}]}], 
      "-", 
      RowBox[{"D", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"b", "[", 
          RowBox[{"x", ",", "y"}], "]"}], 
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{"u", "[", 
            RowBox[{"x", ",", "y"}], "]"}], ",", "y"}], "]"}]}], ",", "y"}], 
       "]"}]}], "/.", 
     RowBox[{"Fy", "->", 
      RowBox[{"D", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"b", "[", 
          RowBox[{"x", ",", "y"}], "]"}], 
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{"u", "[", 
            RowBox[{"x", ",", "y"}], "]"}], ",", "y"}], "]"}]}], ",", "y"}], 
       "]"}]}]}], "/.", 
    RowBox[{"Fyy", "->", 
     RowBox[{"D", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"b", "[", 
         RowBox[{"x", ",", "y"}], "]"}], 
        RowBox[{"D", "[", 
         RowBox[{
          RowBox[{"u", "[", 
           RowBox[{"x", ",", "y"}], "]"}], ",", "y"}], "]"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"y", ",", "2"}], "}"}]}], "]"}]}]}], "/.", 
   RowBox[{"F3y", "->", 
    RowBox[{"D", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"b", "[", 
        RowBox[{"x", ",", "y"}], "]"}], 
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{"u", "[", 
          RowBox[{"x", ",", "y"}], "]"}], ",", "y"}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"y", ",", "3"}], "}"}]}], "]"}]}]}], "//", 
  "FullSimplify"}]}], "Input",
 CellChangeTimes->{{3.616970988274003*^9, 3.616970995632327*^9}, {
   3.6169710546579943`*^9, 3.6169710789104223`*^9}, {3.616971535344273*^9, 
   3.616971542298005*^9}, {3.6169716344192047`*^9, 3.616971634509272*^9}, {
   3.616972008763145*^9, 3.616972085443705*^9}, {3.616972438532682*^9, 
   3.616972460674212*^9}, {3.616972574998308*^9, 3.616972615337447*^9}, {
   3.616972747380478*^9, 3.616972773279233*^9}, 3.616972850823168*^9, 
   3.616972895284388*^9, {3.616974463009157*^9, 3.616974483332828*^9}, 
   3.617052756325358*^9, {3.617124605932156*^9, 3.617124634679344*^9}, {
   3.617124730365337*^9, 3.617124734071666*^9}, 3.6171247694411507`*^9, {
   3.617125464371285*^9, 3.6171254661220627`*^9}, {3.617125614802454*^9, 
   3.6171256208312693`*^9}, {3.617125675530555*^9, 3.61712567854373*^9}, {
   3.617467829785102*^9, 3.617467902852507*^9}, {3.617467952385231*^9, 
   3.617467984251087*^9}, {3.617468045943454*^9, 3.617468046851211*^9}, {
   3.617469337531487*^9, 3.61746940671894*^9}, {3.6174695527205687`*^9, 
   3.617469630871469*^9}, {3.617469803362135*^9, 3.61746980505509*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   FractionBox["1", "360"], " ", 
   SuperscriptBox["hx", "4"], " ", 
   RowBox[{"a", "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"6", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  FractionBox[
   RowBox[{
    SuperscriptBox["hx", "4"], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"1", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"168", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"80", " ", 
          RowBox[{
           SuperscriptBox["a", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"3", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"x", ",", "y"}], "]"}]}], "+", 
         RowBox[{
          SuperscriptBox["hx", "2"], " ", 
          RowBox[{
           SuperscriptBox["a", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"5", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"x", ",", "y"}], "]"}]}]}], ")"}]}], "+", 
      RowBox[{
       SuperscriptBox["hx", "4"], " ", 
       RowBox[{
        SuperscriptBox["a", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"7", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"x", ",", "y"}], "]"}]}]}], ")"}], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{"168", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"1920", " ", 
           RowBox[{
            SuperscriptBox["a", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"1", ",", "0"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"x", ",", "y"}], "]"}]}], "+", 
          RowBox[{"80", " ", 
           SuperscriptBox["hx", "2"], " ", 
           RowBox[{
            SuperscriptBox["a", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"3", ",", "0"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"x", ",", "y"}], "]"}]}], "+", 
          RowBox[{
           SuperscriptBox["hx", "4"], " ", 
           RowBox[{
            SuperscriptBox["a", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"5", ",", "0"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"x", ",", "y"}], "]"}]}]}], ")"}]}], "+", 
       RowBox[{
        SuperscriptBox["hx", "6"], " ", 
        RowBox[{
         SuperscriptBox["a", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"7", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}]}], ")"}], "2"]}], 
   RowBox[{"201364441399296000", " ", 
    SuperscriptBox[
     RowBox[{"a", "[", 
      RowBox[{"x", ",", "y"}], "]"}], "2"]}]], "+", 
  RowBox[{
   FractionBox["1", 
    RowBox[{"624269721600", " ", 
     RowBox[{"a", "[", 
      RowBox[{"x", ",", "y"}], "]"}]}]], 
   RowBox[{
    SuperscriptBox["hx", "4"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         SuperscriptBox["u", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"2", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"168", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"80", " ", 
             RowBox[{
              SuperscriptBox["a", 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"3", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"x", ",", "y"}], "]"}]}], "+", 
            RowBox[{
             SuperscriptBox["hx", "2"], " ", 
             RowBox[{
              SuperscriptBox["a", 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"5", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"x", ",", "y"}], "]"}]}]}], ")"}]}], "+", 
         RowBox[{
          SuperscriptBox["hx", "4"], " ", 
          RowBox[{
           SuperscriptBox["a", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"7", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"x", ",", "y"}], "]"}]}]}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"168", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"1920", " ", 
             RowBox[{
              SuperscriptBox["a", 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"1", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"x", ",", "y"}], "]"}]}], "+", 
            RowBox[{"80", " ", 
             SuperscriptBox["hx", "2"], " ", 
             RowBox[{
              SuperscriptBox["a", 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"3", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"x", ",", "y"}], "]"}]}], "+", 
            RowBox[{
             SuperscriptBox["hx", "4"], " ", 
             RowBox[{
              SuperscriptBox["a", 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"5", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"x", ",", "y"}], "]"}]}]}], ")"}]}], "+", 
         RowBox[{
          SuperscriptBox["hx", "6"], " ", 
          RowBox[{
           SuperscriptBox["a", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"7", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"x", ",", "y"}], "]"}]}]}], ")"}]}], "+", 
      RowBox[{"70", " ", 
       RowBox[{
        SuperscriptBox["u", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"1", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"x", ",", "y"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "3456"}], " ", 
          RowBox[{
           SuperscriptBox["a", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"2", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"x", ",", "y"}], "]"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"168", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"80", " ", 
                RowBox[{
                 SuperscriptBox["a", 
                  TagBox[
                   RowBox[{"(", 
                    RowBox[{"3", ",", "0"}], ")"}],
                   Derivative],
                  MultilineFunction->None], "[", 
                 RowBox[{"x", ",", "y"}], "]"}]}], "+", 
               RowBox[{
                SuperscriptBox["hx", "2"], " ", 
                RowBox[{
                 SuperscriptBox["a", 
                  TagBox[
                   RowBox[{"(", 
                    RowBox[{"5", ",", "0"}], ")"}],
                   Derivative],
                  MultilineFunction->None], "[", 
                 RowBox[{"x", ",", "y"}], "]"}]}]}], ")"}]}], "+", 
            RowBox[{
             SuperscriptBox["hx", "4"], " ", 
             RowBox[{
              SuperscriptBox["a", 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"7", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"x", ",", "y"}], "]"}]}]}], ")"}]}], "-", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"120", " ", 
             RowBox[{
              SuperscriptBox["a", 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"4", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"x", ",", "y"}], "]"}]}], "+", 
            RowBox[{
             SuperscriptBox["hx", "2"], " ", 
             RowBox[{
              SuperscriptBox["a", 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"6", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"x", ",", "y"}], "]"}]}]}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"168", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"768", " ", 
                RowBox[{
                 SuperscriptBox["a", 
                  TagBox[
                   RowBox[{"(", 
                    RowBox[{"1", ",", "0"}], ")"}],
                   Derivative],
                  MultilineFunction->None], "[", 
                 RowBox[{"x", ",", "y"}], "]"}]}], "+", 
               RowBox[{"80", " ", 
                SuperscriptBox["hx", "2"], " ", 
                RowBox[{
                 SuperscriptBox["a", 
                  TagBox[
                   RowBox[{"(", 
                    RowBox[{"3", ",", "0"}], ")"}],
                   Derivative],
                  MultilineFunction->None], "[", 
                 RowBox[{"x", ",", "y"}], "]"}]}], "+", 
               RowBox[{
                SuperscriptBox["hx", "4"], " ", 
                RowBox[{
                 SuperscriptBox["a", 
                  TagBox[
                   RowBox[{"(", 
                    RowBox[{"5", ",", "0"}], ")"}],
                   Derivative],
                  MultilineFunction->None], "[", 
                 RowBox[{"x", ",", "y"}], "]"}]}]}], ")"}]}], "+", 
            RowBox[{
             SuperscriptBox["hx", "6"], " ", 
             RowBox[{
              SuperscriptBox["a", 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"7", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"x", ",", "y"}], "]"}]}]}], ")"}]}]}], ")"}]}]}], 
     ")"}]}]}], "+", 
  RowBox[{
   FractionBox["1", "1625702400"], 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"98", " ", 
      SuperscriptBox["hx", "4"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"72", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"80", " ", 
            RowBox[{
             SuperscriptBox["a", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"3", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"x", ",", "y"}], "]"}]}], "+", 
           RowBox[{
            SuperscriptBox["hx", "2"], " ", 
            RowBox[{
             SuperscriptBox["a", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"5", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"x", ",", "y"}], "]"}]}]}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"30", " ", 
            RowBox[{
             SuperscriptBox["u", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"3", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"x", ",", "y"}], "]"}]}], "+", 
           RowBox[{
            SuperscriptBox["hx", "2"], " ", 
            RowBox[{
             SuperscriptBox["u", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"5", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"x", ",", "y"}], "]"}]}]}], ")"}]}], "+", 
        RowBox[{"720", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"5", " ", 
            RowBox[{
             SuperscriptBox["a", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"4", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"x", ",", "y"}], "]"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"24", " ", 
               RowBox[{
                SuperscriptBox["u", 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"2", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"x", ",", "y"}], "]"}]}], "+", 
              RowBox[{
               SuperscriptBox["hx", "2"], " ", 
               RowBox[{
                SuperscriptBox["u", 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"4", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"x", ",", "y"}], "]"}]}]}], ")"}]}], "+", 
           RowBox[{"12", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"20", " ", 
               RowBox[{
                SuperscriptBox["a", 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"2", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"x", ",", "y"}], "]"}], " ", 
               RowBox[{
                SuperscriptBox["u", 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"4", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"x", ",", "y"}], "]"}]}], "+", 
              RowBox[{
               RowBox[{
                SuperscriptBox["u", 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"1", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"x", ",", "y"}], "]"}], " ", 
               RowBox[{
                SuperscriptBox["a", 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"5", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"x", ",", "y"}], "]"}]}], "+", 
              RowBox[{"16", " ", 
               RowBox[{
                SuperscriptBox["a", 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"1", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"x", ",", "y"}], "]"}], " ", 
               RowBox[{
                SuperscriptBox["u", 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"5", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"x", ",", "y"}], "]"}]}]}], ")"}]}]}], ")"}]}], "+", 
        RowBox[{"30", " ", 
         SuperscriptBox["hx", "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"24", " ", 
            RowBox[{
             SuperscriptBox["u", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"2", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"x", ",", "y"}], "]"}]}], "+", 
           RowBox[{
            SuperscriptBox["hx", "2"], " ", 
            RowBox[{
             SuperscriptBox["u", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"4", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"x", ",", "y"}], "]"}]}]}], ")"}], " ", 
         RowBox[{
          SuperscriptBox["a", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"6", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "+", 
        RowBox[{
         SuperscriptBox["hx", "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"5760", " ", 
            RowBox[{
             SuperscriptBox["a", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"2", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"x", ",", "y"}], "]"}]}], "+", 
           RowBox[{"120", " ", 
            SuperscriptBox["hx", "2"], " ", 
            RowBox[{
             SuperscriptBox["a", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"4", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"x", ",", "y"}], "]"}]}], "+", 
           RowBox[{
            SuperscriptBox["hx", "4"], " ", 
            RowBox[{
             SuperscriptBox["a", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"6", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"x", ",", "y"}], "]"}]}]}], ")"}], " ", 
         RowBox[{
          SuperscriptBox["u", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"6", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}]}], ")"}]}], "+", 
     RowBox[{"42", " ", 
      SuperscriptBox["hx", "6"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"120", " ", 
         RowBox[{
          SuperscriptBox["u", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"1", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "+", 
        RowBox[{"30", " ", 
         SuperscriptBox["hx", "2"], " ", 
         RowBox[{
          SuperscriptBox["u", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"3", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "+", 
        RowBox[{
         SuperscriptBox["hx", "4"], " ", 
         RowBox[{
          SuperscriptBox["u", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"5", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}]}], ")"}], " ", 
      RowBox[{
       SuperscriptBox["a", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"7", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}]}], "+", 
     RowBox[{
      SuperscriptBox["hx", "6"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"168", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"1920", " ", 
            RowBox[{
             SuperscriptBox["a", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"x", ",", "y"}], "]"}]}], "+", 
           RowBox[{"80", " ", 
            SuperscriptBox["hx", "2"], " ", 
            RowBox[{
             SuperscriptBox["a", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"3", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"x", ",", "y"}], "]"}]}], "+", 
           RowBox[{
            SuperscriptBox["hx", "4"], " ", 
            RowBox[{
             SuperscriptBox["a", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"5", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"x", ",", "y"}], "]"}]}]}], ")"}]}], "+", 
        RowBox[{
         SuperscriptBox["hx", "6"], " ", 
         RowBox[{
          SuperscriptBox["a", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"7", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}]}], ")"}], " ", 
      RowBox[{
       SuperscriptBox["u", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"7", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}]}]}], ")"}]}]}]], "Output",
 CellChangeTimes->{3.617469677587647*^9, 3.6174698564827623`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   FractionBox["1", "360"], " ", 
   SuperscriptBox["hy", "4"], " ", 
   RowBox[{"b", "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"0", ",", "6"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  FractionBox[
   RowBox[{
    SuperscriptBox["hy", "4"], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"0", ",", "1"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"168", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"80", " ", 
          RowBox[{
           SuperscriptBox["b", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "3"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"x", ",", "y"}], "]"}]}], "+", 
         RowBox[{
          SuperscriptBox["hy", "2"], " ", 
          RowBox[{
           SuperscriptBox["b", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "5"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"x", ",", "y"}], "]"}]}]}], ")"}]}], "+", 
      RowBox[{
       SuperscriptBox["hy", "4"], " ", 
       RowBox[{
        SuperscriptBox["b", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "7"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"x", ",", "y"}], "]"}]}]}], ")"}], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{"168", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"1920", " ", 
           RowBox[{
            SuperscriptBox["b", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"0", ",", "1"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"x", ",", "y"}], "]"}]}], "+", 
          RowBox[{"80", " ", 
           SuperscriptBox["hy", "2"], " ", 
           RowBox[{
            SuperscriptBox["b", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"0", ",", "3"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"x", ",", "y"}], "]"}]}], "+", 
          RowBox[{
           SuperscriptBox["hy", "4"], " ", 
           RowBox[{
            SuperscriptBox["b", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"0", ",", "5"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"x", ",", "y"}], "]"}]}]}], ")"}]}], "+", 
       RowBox[{
        SuperscriptBox["hy", "6"], " ", 
        RowBox[{
         SuperscriptBox["b", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "7"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}]}], ")"}], "2"]}], 
   RowBox[{"201364441399296000", " ", 
    SuperscriptBox[
     RowBox[{"b", "[", 
      RowBox[{"x", ",", "y"}], "]"}], "2"]}]], "+", 
  RowBox[{
   FractionBox["1", 
    RowBox[{"624269721600", " ", 
     RowBox[{"b", "[", 
      RowBox[{"x", ",", "y"}], "]"}]}]], 
   RowBox[{
    SuperscriptBox["hy", "4"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         SuperscriptBox["u", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "2"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"168", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"80", " ", 
             RowBox[{
              SuperscriptBox["b", 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"0", ",", "3"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"x", ",", "y"}], "]"}]}], "+", 
            RowBox[{
             SuperscriptBox["hy", "2"], " ", 
             RowBox[{
              SuperscriptBox["b", 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"0", ",", "5"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"x", ",", "y"}], "]"}]}]}], ")"}]}], "+", 
         RowBox[{
          SuperscriptBox["hy", "4"], " ", 
          RowBox[{
           SuperscriptBox["b", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "7"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"x", ",", "y"}], "]"}]}]}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"168", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"1920", " ", 
             RowBox[{
              SuperscriptBox["b", 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"0", ",", "1"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"x", ",", "y"}], "]"}]}], "+", 
            RowBox[{"80", " ", 
             SuperscriptBox["hy", "2"], " ", 
             RowBox[{
              SuperscriptBox["b", 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"0", ",", "3"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"x", ",", "y"}], "]"}]}], "+", 
            RowBox[{
             SuperscriptBox["hy", "4"], " ", 
             RowBox[{
              SuperscriptBox["b", 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"0", ",", "5"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"x", ",", "y"}], "]"}]}]}], ")"}]}], "+", 
         RowBox[{
          SuperscriptBox["hy", "6"], " ", 
          RowBox[{
           SuperscriptBox["b", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "7"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"x", ",", "y"}], "]"}]}]}], ")"}]}], "+", 
      RowBox[{"70", " ", 
       RowBox[{
        SuperscriptBox["u", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "1"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"x", ",", "y"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "3456"}], " ", 
          RowBox[{
           SuperscriptBox["b", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "2"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"x", ",", "y"}], "]"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"168", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"80", " ", 
                RowBox[{
                 SuperscriptBox["b", 
                  TagBox[
                   RowBox[{"(", 
                    RowBox[{"0", ",", "3"}], ")"}],
                   Derivative],
                  MultilineFunction->None], "[", 
                 RowBox[{"x", ",", "y"}], "]"}]}], "+", 
               RowBox[{
                SuperscriptBox["hy", "2"], " ", 
                RowBox[{
                 SuperscriptBox["b", 
                  TagBox[
                   RowBox[{"(", 
                    RowBox[{"0", ",", "5"}], ")"}],
                   Derivative],
                  MultilineFunction->None], "[", 
                 RowBox[{"x", ",", "y"}], "]"}]}]}], ")"}]}], "+", 
            RowBox[{
             SuperscriptBox["hy", "4"], " ", 
             RowBox[{
              SuperscriptBox["b", 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"0", ",", "7"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"x", ",", "y"}], "]"}]}]}], ")"}]}], "-", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"120", " ", 
             RowBox[{
              SuperscriptBox["b", 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"0", ",", "4"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"x", ",", "y"}], "]"}]}], "+", 
            RowBox[{
             SuperscriptBox["hy", "2"], " ", 
             RowBox[{
              SuperscriptBox["b", 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"0", ",", "6"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"x", ",", "y"}], "]"}]}]}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"168", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"768", " ", 
                RowBox[{
                 SuperscriptBox["b", 
                  TagBox[
                   RowBox[{"(", 
                    RowBox[{"0", ",", "1"}], ")"}],
                   Derivative],
                  MultilineFunction->None], "[", 
                 RowBox[{"x", ",", "y"}], "]"}]}], "+", 
               RowBox[{"80", " ", 
                SuperscriptBox["hy", "2"], " ", 
                RowBox[{
                 SuperscriptBox["b", 
                  TagBox[
                   RowBox[{"(", 
                    RowBox[{"0", ",", "3"}], ")"}],
                   Derivative],
                  MultilineFunction->None], "[", 
                 RowBox[{"x", ",", "y"}], "]"}]}], "+", 
               RowBox[{
                SuperscriptBox["hy", "4"], " ", 
                RowBox[{
                 SuperscriptBox["b", 
                  TagBox[
                   RowBox[{"(", 
                    RowBox[{"0", ",", "5"}], ")"}],
                   Derivative],
                  MultilineFunction->None], "[", 
                 RowBox[{"x", ",", "y"}], "]"}]}]}], ")"}]}], "+", 
            RowBox[{
             SuperscriptBox["hy", "6"], " ", 
             RowBox[{
              SuperscriptBox["b", 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"0", ",", "7"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"x", ",", "y"}], "]"}]}]}], ")"}]}]}], ")"}]}]}], 
     ")"}]}]}], "+", 
  RowBox[{
   FractionBox["1", "1625702400"], 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"98", " ", 
      SuperscriptBox["hy", "4"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"72", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"80", " ", 
            RowBox[{
             SuperscriptBox["b", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "3"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"x", ",", "y"}], "]"}]}], "+", 
           RowBox[{
            SuperscriptBox["hy", "2"], " ", 
            RowBox[{
             SuperscriptBox["b", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "5"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"x", ",", "y"}], "]"}]}]}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"30", " ", 
            RowBox[{
             SuperscriptBox["u", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "3"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"x", ",", "y"}], "]"}]}], "+", 
           RowBox[{
            SuperscriptBox["hy", "2"], " ", 
            RowBox[{
             SuperscriptBox["u", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "5"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"x", ",", "y"}], "]"}]}]}], ")"}]}], "+", 
        RowBox[{"720", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"5", " ", 
            RowBox[{
             SuperscriptBox["b", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "4"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"x", ",", "y"}], "]"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"24", " ", 
               RowBox[{
                SuperscriptBox["u", 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"0", ",", "2"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"x", ",", "y"}], "]"}]}], "+", 
              RowBox[{
               SuperscriptBox["hy", "2"], " ", 
               RowBox[{
                SuperscriptBox["u", 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"0", ",", "4"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"x", ",", "y"}], "]"}]}]}], ")"}]}], "+", 
           RowBox[{"12", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"20", " ", 
               RowBox[{
                SuperscriptBox["b", 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"0", ",", "2"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"x", ",", "y"}], "]"}], " ", 
               RowBox[{
                SuperscriptBox["u", 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"0", ",", "4"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"x", ",", "y"}], "]"}]}], "+", 
              RowBox[{
               RowBox[{
                SuperscriptBox["u", 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"0", ",", "1"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"x", ",", "y"}], "]"}], " ", 
               RowBox[{
                SuperscriptBox["b", 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"0", ",", "5"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"x", ",", "y"}], "]"}]}], "+", 
              RowBox[{"16", " ", 
               RowBox[{
                SuperscriptBox["b", 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"0", ",", "1"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"x", ",", "y"}], "]"}], " ", 
               RowBox[{
                SuperscriptBox["u", 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"0", ",", "5"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"x", ",", "y"}], "]"}]}]}], ")"}]}]}], ")"}]}], "+", 
        RowBox[{"30", " ", 
         SuperscriptBox["hy", "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"24", " ", 
            RowBox[{
             SuperscriptBox["u", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "2"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"x", ",", "y"}], "]"}]}], "+", 
           RowBox[{
            SuperscriptBox["hy", "2"], " ", 
            RowBox[{
             SuperscriptBox["u", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "4"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"x", ",", "y"}], "]"}]}]}], ")"}], " ", 
         RowBox[{
          SuperscriptBox["b", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"0", ",", "6"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "+", 
        RowBox[{
         SuperscriptBox["hy", "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"5760", " ", 
            RowBox[{
             SuperscriptBox["b", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "2"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"x", ",", "y"}], "]"}]}], "+", 
           RowBox[{"120", " ", 
            SuperscriptBox["hy", "2"], " ", 
            RowBox[{
             SuperscriptBox["b", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "4"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"x", ",", "y"}], "]"}]}], "+", 
           RowBox[{
            SuperscriptBox["hy", "4"], " ", 
            RowBox[{
             SuperscriptBox["b", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "6"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"x", ",", "y"}], "]"}]}]}], ")"}], " ", 
         RowBox[{
          SuperscriptBox["u", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"0", ",", "6"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}]}], ")"}]}], "+", 
     RowBox[{"42", " ", 
      SuperscriptBox["hy", "6"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"120", " ", 
         RowBox[{
          SuperscriptBox["u", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"0", ",", "1"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "+", 
        RowBox[{"30", " ", 
         SuperscriptBox["hy", "2"], " ", 
         RowBox[{
          SuperscriptBox["u", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"0", ",", "3"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "+", 
        RowBox[{
         SuperscriptBox["hy", "4"], " ", 
         RowBox[{
          SuperscriptBox["u", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"0", ",", "5"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}]}], ")"}], " ", 
      RowBox[{
       SuperscriptBox["b", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "7"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}]}], "+", 
     RowBox[{
      SuperscriptBox["hy", "6"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"168", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"1920", " ", 
            RowBox[{
             SuperscriptBox["b", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"x", ",", "y"}], "]"}]}], "+", 
           RowBox[{"80", " ", 
            SuperscriptBox["hy", "2"], " ", 
            RowBox[{
             SuperscriptBox["b", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "3"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"x", ",", "y"}], "]"}]}], "+", 
           RowBox[{
            SuperscriptBox["hy", "4"], " ", 
            RowBox[{
             SuperscriptBox["b", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "5"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"x", ",", "y"}], "]"}]}]}], ")"}]}], "+", 
        RowBox[{
         SuperscriptBox["hy", "6"], " ", 
         RowBox[{
          SuperscriptBox["b", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"0", ",", "7"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}]}], ")"}], " ", 
      RowBox[{
       SuperscriptBox["u", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "7"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}]}]}], ")"}]}]}]], "Output",
 CellChangeTimes->{3.617469677587647*^9, 3.6174714009345617`*^9}]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.616884033615552*^9, 3.6168840370159273`*^9}, {
  3.6168840739183826`*^9, 3.6168841955057898`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"f", "[", 
   RowBox[{"x", ",", "y"}], "]"}], "==", 
  RowBox[{
   RowBox[{"D", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"a", "[", 
       RowBox[{"x", ",", "y"}], "]"}], 
      RowBox[{"D", "[", 
       RowBox[{
        RowBox[{"u", "[", 
         RowBox[{"x", ",", "y"}], "]"}], ",", "x"}], "]"}]}], ",", "x"}], 
    "]"}], "+", 
   RowBox[{"D", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"b", "[", 
       RowBox[{"x", ",", "y"}], "]"}], 
      RowBox[{"D", "[", 
       RowBox[{
        RowBox[{"u", "[", 
         RowBox[{"x", ",", "y"}], "]"}], ",", "y"}], "]"}]}], ",", "y"}], 
    "]"}], "-", 
   RowBox[{
    RowBox[{"\[Sigma]", "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{"u", "[", 
     RowBox[{"x", ",", "y"}], "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.613867075453457*^9, 3.613867099849945*^9}, {
   3.6138691162399406`*^9, 3.6138691284504337`*^9}, {3.6138691868486633`*^9, 
   3.6138692046663*^9}, 3.613878052112506*^9, {3.613881521439344*^9, 
   3.613881530490568*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    SuperscriptBox["b", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"0", ",", "1"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"0", ",", "1"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   RowBox[{"b", "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"0", ",", "2"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   RowBox[{
    SuperscriptBox["a", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"1", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"1", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   RowBox[{"a", "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"2", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}]}]], "Output",
 CellChangeTimes->{3.613867102217314*^9, 3.613869130177689*^9, 
  3.6138692066846933`*^9}]
}, Open  ]],

Cell[BoxData["Simplify"], "Input",
 CellChangeTimes->{{3.6171281851837873`*^9, 3.617128190263824*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"1", "/", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"Sqrt", "[", "2", "]"}], "+", "x"}], ")"}]}], "+", 
  RowBox[{"1", "/", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"x", "^", "2"}], "-", "2"}], ")"}]}]}]], "Input"],

Cell[BoxData[
 RowBox[{
  FractionBox["1", 
   RowBox[{
    SqrtBox["2"], "+", "x"}]], "+", 
  FractionBox["1", 
   RowBox[{
    RowBox[{"-", "2"}], "+", 
    SuperscriptBox["x", "2"]}]]}]], "Output",
 CellChangeTimes->{3.617130030061161*^9}]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.61713061199382*^9, 3.617130650492008*^9}, {
   3.617130701769371*^9, 3.617130711474786*^9}, {3.617137464668445*^9, 
   3.617137500429595*^9}, 3.617151649997427*^9}],

Cell[BoxData[{
 RowBox[{"Fx", "->", 
  RowBox[{"D", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"a", "[", 
      RowBox[{"x", ",", "y"}], "]"}], 
     RowBox[{"D", "[", 
      RowBox[{
       RowBox[{"u", "[", 
        RowBox[{"x", ",", "y"}], "]"}], ",", "x"}], "]"}]}], ",", "x"}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"Fxx", "->", 
  RowBox[{"D", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"a", "[", 
      RowBox[{"x", ",", "y"}], "]"}], 
     RowBox[{"D", "[", 
      RowBox[{
       RowBox[{"u", "[", 
        RowBox[{"x", ",", "y"}], "]"}], ",", "x"}], "]"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"x", ",", "2"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"F3x", "->", 
  RowBox[{"D", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"a", "[", 
      RowBox[{"x", ",", "y"}], "]"}], 
     RowBox[{"D", "[", 
      RowBox[{
       RowBox[{"u", "[", 
        RowBox[{"x", ",", "y"}], "]"}], ",", "x"}], "]"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"x", ",", "3"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"Fx", "->", 
  RowBox[{
   RowBox[{"f", "[", 
    RowBox[{"x", ",", "y"}], "]"}], "+", 
   RowBox[{
    RowBox[{"u", "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{"\[Sigma]", "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "-", 
   RowBox[{
    FractionBox[
     RowBox[{"Byph2", "-", "Bymh2"}], "hy"], " ", 
    FractionBox[
     RowBox[{"Uyph", "-", "Uymh"}], 
     RowBox[{"2", "hy"}]]}], "-", 
   RowBox[{
    RowBox[{"b", "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    FractionBox[
     RowBox[{"Uyph", "-", 
      RowBox[{"2", 
       RowBox[{"u", "[", 
        RowBox[{"x", ",", "y"}], "]"}]}], "+", "Uymh"}], 
     SuperscriptBox["hy", "2"]]}]}]}], "\[IndentingNewLine]", 
 RowBox[{"Fxx", "->", 
  RowBox[{
   RowBox[{
    RowBox[{"-", 
     FractionBox[
      RowBox[{"Uyph", "-", 
       RowBox[{"2", 
        RowBox[{"u", "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", "Uymh"}], 
      SuperscriptBox["hy", "2"]]}], " ", 
    FractionBox[
     RowBox[{"Bxph2", "-", "Bxmh2"}], "hx"]}], "+", 
   RowBox[{
    SuperscriptBox["f", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"1", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], "+", 
   RowBox[{
    RowBox[{"\[Sigma]", "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    FractionBox[
     RowBox[{"Uxph", "-", "Uxmh"}], 
     RowBox[{"2", "hx"}]]}], "+", 
   RowBox[{
    RowBox[{"u", "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["\[Sigma]", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"1", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "-", 
   RowBox[{
    FractionBox[
     RowBox[{"Uyph", "-", "Uymh"}], 
     RowBox[{"2", "hy"}]], " ", 
    FractionBox["1", "hy"], 
    RowBox[{"(", 
     RowBox[{
      FractionBox[
       RowBox[{"Bxph2yph2", "-", "Bxmh2yph2"}], "hx"], "-", 
      FractionBox[
       RowBox[{"Bxph2ymh2", "-", "Bxmh2ymh2"}], "hx"]}], ")"}]}], "-", 
   RowBox[{
    FractionBox[
     RowBox[{"Byph2", "-", "Bymh2"}], "hy"], " ", 
    FractionBox["1", 
     RowBox[{"2", "hy"}]], 
    RowBox[{"(", 
     RowBox[{
      FractionBox[
       RowBox[{"Uxphyph", "-", "Uxmhyph"}], 
       RowBox[{"2", "hx"}]], "-", 
      FractionBox[
       RowBox[{"Uxphymh", "-", "Uxmhymh"}], 
       RowBox[{"2", "hx"}]]}], ")"}]}], "-", 
   RowBox[{
    RowBox[{"b", "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    FractionBox["1", 
     RowBox[{"2", "hx"}]], 
    RowBox[{"(", 
     RowBox[{
      FractionBox[
       RowBox[{"Uxphyph", "-", 
        RowBox[{"2", "Uxph"}], "+", "Uxphymh"}], 
       SuperscriptBox["hy", "2"]], "-", 
      FractionBox[
       RowBox[{"Uxmhyph", "-", 
        RowBox[{"2", "Uxmh"}], "+", "Uxmhymh"}], 
       SuperscriptBox["hy", "2"]]}], ")"}]}]}]}], "\[IndentingNewLine]", 
 RowBox[{"F3x", "->", 
  RowBox[{
   RowBox[{"2", "  ", 
    FractionBox[
     RowBox[{"Uxph", "-", "Uxmh"}], 
     RowBox[{"2", "hx"}]], " ", 
    RowBox[{
     SuperscriptBox["\[Sigma]", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"1", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "-", 
   RowBox[{"2", " ", 
    FractionBox["1", "hy"], 
    RowBox[{"(", 
     RowBox[{
      FractionBox[
       RowBox[{"Bxph2yph2", "-", "Bxmh2yph2"}], "hx"], "-", 
      FractionBox[
       RowBox[{"Bxph2ymh2", "-", "Bxmh2ymh2"}], "hx"]}], ")"}], " ", 
    FractionBox["1", 
     RowBox[{"2", "hy"}]], 
    RowBox[{"(", 
     RowBox[{
      FractionBox[
       RowBox[{"Uxphyph", "-", "Uxmhyph"}], 
       RowBox[{"2", "hx"}]], "-", 
      FractionBox[
       RowBox[{"Uxphymh", "-", "Uxmhymh"}], 
       RowBox[{"2", "hx"}]]}], ")"}]}], "-", 
   RowBox[{"2", " ", 
    FractionBox[
     RowBox[{"Bxph2", "-", "Bxmh2"}], "hx"], " ", 
    FractionBox["1", 
     RowBox[{"2", "hx"}]], 
    RowBox[{"(", 
     RowBox[{
      FractionBox[
       RowBox[{"Uxphyph", "-", 
        RowBox[{"2", "Uxph"}], "+", "Uxphymh"}], 
       SuperscriptBox["hy", "2"]], "-", 
      FractionBox[
       RowBox[{"Uxmhyph", "-", 
        RowBox[{"2", "Uxmh"}], "+", "Uxmhymh"}], 
       SuperscriptBox["hy", "2"]]}], ")"}]}], "-", 
   RowBox[{
    FractionBox[
     RowBox[{"Uyph", "-", 
      RowBox[{"2", 
       RowBox[{"u", "[", 
        RowBox[{"x", ",", "y"}], "]"}]}], "+", "Uymh"}], 
     SuperscriptBox["hy", "2"]], " ", 
    FractionBox[
     RowBox[{"Bxph2", "-", 
      RowBox[{"2", 
       RowBox[{"b", "[", 
        RowBox[{"x", ",", "y"}], "]"}]}], "+", "Bxmh2"}], 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"hx", "/", "2"}], ")"}], "2"]]}], "+", 
   RowBox[{
    SuperscriptBox["f", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"2", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], "+", 
   RowBox[{
    RowBox[{"\[Sigma]", "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    FractionBox[
     RowBox[{"Uxph", "-", 
      RowBox[{"2", 
       RowBox[{"u", "[", 
        RowBox[{"x", ",", "y"}], "]"}]}], "+", "Uxmh"}], 
     SuperscriptBox["hx", "2"]]}], "+", 
   RowBox[{
    RowBox[{"u", "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["\[Sigma]", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"2", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "-", 
   RowBox[{
    FractionBox[
     RowBox[{"Uyph", "-", "Uymh"}], 
     RowBox[{"2", "hy"}]], " ", 
    FractionBox["1", "hy"], 
    RowBox[{"(", 
     RowBox[{
      FractionBox[
       RowBox[{"Bxph2yph2", "-", 
        RowBox[{"2", "Byph2"}], "+", "Bxmh2yph2"}], 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"hx", "/", "2"}], ")"}], "2"]], "-", 
      FractionBox[
       RowBox[{"Bxph2ymh2", "-", 
        RowBox[{"2", "Bymh2"}], "+", "Bxmh2ymh2"}], 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"hx", "/", "2"}], ")"}], "2"]]}], ")"}]}], "-", 
   RowBox[{
    FractionBox[
     RowBox[{"Byph2", "-", "Bymh2"}], "hy"], " ", 
    FractionBox["1", 
     RowBox[{"2", "hy"}]], 
    RowBox[{"(", 
     RowBox[{
      FractionBox[
       RowBox[{"Uxphyph", "-", 
        RowBox[{"2", "Uyph"}], "+", "Uxmhyph"}], 
       SuperscriptBox["hx", "2"]], "-", 
      FractionBox[
       RowBox[{"Uxphymh", "-", 
        RowBox[{"2", "Uymh"}], "+", "Uxmhymh"}], 
       SuperscriptBox["hx", "2"]]}], ")"}]}], "-", 
   RowBox[{
    RowBox[{"b", "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    FractionBox["1", 
     SuperscriptBox["hx", "2"]], 
    RowBox[{"(", 
     RowBox[{
      FractionBox[
       RowBox[{"Uxphyph", "-", 
        RowBox[{"2", "Uxph"}], "+", "Uxphymh"}], 
       SuperscriptBox["hy", "2"]], "-", 
      RowBox[{"2", 
       FractionBox[
        RowBox[{"Uyph", "-", 
         RowBox[{"2", 
          RowBox[{"u", "[", 
           RowBox[{"x", ",", "y"}], "]"}]}], "+", "Uymh"}], 
        SuperscriptBox["hy", "2"]]}], "+", 
      FractionBox[
       RowBox[{"Uxmhyph", "-", 
        RowBox[{"2", "Uxmh"}], "+", "Uxmhymh"}], 
       SuperscriptBox["hy", "2"]]}], ")"}]}]}]}]}], "Input",
 CellChangeTimes->{
  3.617133619591464*^9, {3.617135601394928*^9, 3.617135610385274*^9}, {
   3.61713568379459*^9, 3.617135685280972*^9}, {3.6171368231592913`*^9, 
   3.617136876075655*^9}, {3.617137039945763*^9, 3.617137052603112*^9}, {
   3.617137365071022*^9, 3.617137444284162*^9}, 3.617137633650834*^9, {
   3.617137675792733*^9, 3.617137681111712*^9}, 3.617138540909342*^9, {
   3.617149504236273*^9, 3.617149534763649*^9}, {3.617149718645855*^9, 
   3.6171497421552963`*^9}, {3.617149784291877*^9, 3.617149798423201*^9}, {
   3.617149829527713*^9, 3.617149841769182*^9}, 3.617149954455776*^9, {
   3.61714998795993*^9, 3.6171500165596447`*^9}, {3.617150155584415*^9, 
   3.617150165568067*^9}, {3.617150242993785*^9, 3.617150265991376*^9}, 
   3.617150641770855*^9, 3.617151350819706*^9, 3.617151447515355*^9, 
   3.6171514826877003`*^9, {3.617755322914989*^9, 3.617755322947771*^9}}],

Cell[BoxData[{
 FractionBox[
  RowBox[{"Uxph", "-", "Uxmh"}], 
  RowBox[{"2", "hx"}]], "\[IndentingNewLine]", 
 FractionBox[
  RowBox[{"Uyph", "-", "Uymh"}], 
  RowBox[{"2", "hy"}]], "\[IndentingNewLine]", 
 FractionBox[
  RowBox[{"Uxph", "-", 
   RowBox[{"2", 
    RowBox[{"u", "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "+", "Uxmh"}], 
  SuperscriptBox["hx", "2"]], "\[IndentingNewLine]", 
 FractionBox[
  RowBox[{"Uyph", "-", 
   RowBox[{"2", 
    RowBox[{"u", "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "+", "Uymh"}], 
  SuperscriptBox["hy", "2"]], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"u_", 
    RowBox[{"{", "xy", "}"}]}], "*)"}], 
  RowBox[{
   FractionBox["1", 
    RowBox[{"2", "hy"}]], 
   RowBox[{"(", 
    RowBox[{
     FractionBox[
      RowBox[{"Uxphyph", "-", "Uxmhyph"}], 
      RowBox[{"2", "hx"}]], "-", 
     FractionBox[
      RowBox[{"Uxphymh", "-", "Uxmhymh"}], 
      RowBox[{"2", "hx"}]]}], ")"}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"u_", 
    RowBox[{"{", "xyy", "}"}]}], "*)"}], 
  RowBox[{
   FractionBox["1", 
    RowBox[{"2", "hx"}]], 
   RowBox[{"(", 
    RowBox[{
     FractionBox[
      RowBox[{"Uxphyph", "-", 
       RowBox[{"2", "Uxph"}], "+", "Uxphymh"}], 
      SuperscriptBox["hy", "2"]], "-", 
     FractionBox[
      RowBox[{"Uxmhyph", "-", 
       RowBox[{"2", "Uxmh"}], "+", "Uxmhymh"}], 
      SuperscriptBox["hy", "2"]]}], ")"}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", " ", 
   SubscriptBox["u", "xxy"], "*)"}], 
  RowBox[{
   FractionBox["1", 
    RowBox[{"2", "hy"}]], 
   RowBox[{"(", 
    RowBox[{
     FractionBox[
      RowBox[{"Uxphyph", "-", 
       RowBox[{"2", "Uyph"}], "+", "Uxmhyph"}], 
      SuperscriptBox["hx", "2"]], "-", 
     FractionBox[
      RowBox[{"Uxphymh", "-", 
       RowBox[{"2", "Uymh"}], "+", "Uxmhymh"}], 
      SuperscriptBox["hx", "2"]]}], ")"}]}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", " ", 
   SubscriptBox["u", "xxyy"], "*)"}], 
  RowBox[{
   FractionBox["1", 
    SuperscriptBox["hx", "2"]], 
   RowBox[{"(", 
    RowBox[{
     FractionBox[
      RowBox[{"Uxphyph", "-", 
       RowBox[{"2", "Uxph"}], "+", "Uxphymh"}], 
      SuperscriptBox["hy", "2"]], "-", 
     RowBox[{"2", 
      FractionBox[
       RowBox[{"Uyph", "-", 
        RowBox[{"2", 
         RowBox[{"u", "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "+", "Uymh"}], 
       SuperscriptBox["hy", "2"]]}], "+", 
     FractionBox[
      RowBox[{"Uxmhyph", "-", 
       RowBox[{"2", "Uxmh"}], "+", "Uxmhymh"}], 
      SuperscriptBox["hy", "2"]]}], ")"}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", " ", 
   SubscriptBox["b", "xx"], "*)"}], 
  FractionBox[
   RowBox[{"Bxph2", "-", 
    RowBox[{"2", 
     RowBox[{"b", "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "+", "Bxmh2"}], 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"hx", "/", "2"}], ")"}], "2"]]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", " ", 
   SubscriptBox["b", "xy"], "*)"}], 
  RowBox[{
   RowBox[{
    RowBox[{
     FractionBox["1", "hy"], 
     RowBox[{"(", 
      RowBox[{
       FractionBox[
        RowBox[{"Bxph2yph2", "-", "Bxmh2yph2"}], "hx"], "-", 
       FractionBox[
        RowBox[{"Bxph2ymh2", "-", "Bxmh2ymh2"}], "hx"]}], ")"}]}], "//", 
    "Expand"}], ";"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", " ", 
   SubscriptBox["b", "xxy"], "*)"}], 
  RowBox[{
   FractionBox["1", "hy"], 
   RowBox[{"(", 
    RowBox[{
     FractionBox[
      RowBox[{"Bxph2yph2", "-", 
       RowBox[{"2", "Byph2"}], "+", "Bxmh2yph2"}], 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"hx", "/", "2"}], ")"}], "2"]], "-", 
     FractionBox[
      RowBox[{"Bxph2ymh2", "-", 
       RowBox[{"2", "Bymh2"}], "+", "Bxmh2ymh2"}], 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"hx", "/", "2"}], ")"}], "2"]]}], ")"}]}]}]}], "Input",
 CellChangeTimes->{{3.6171361784806223`*^9, 3.617136178840796*^9}, {
  3.617136231288794*^9, 3.617136231656558*^9}, {3.6171376538655024`*^9, 
  3.617137666289937*^9}, {3.6171491223953543`*^9, 3.617149136812648*^9}, {
  3.617149225828361*^9, 3.617149241842443*^9}, {3.617149318955209*^9, 
  3.617149329762355*^9}, {3.617150620213497*^9, 3.61715062077671*^9}, {
  3.6171513415011177`*^9, 3.617151341966201*^9}, {3.617151381709223*^9, 
  3.617151382598207*^9}, {3.617151421051301*^9, 3.6171514641973143`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"f", "[", 
   RowBox[{"x", ",", "y"}], "]"}], "+", 
  RowBox[{
   RowBox[{"\[Sigma]", "[", 
    RowBox[{"x", ",", "y"}], "]"}], 
   RowBox[{"u", "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "-", 
  RowBox[{"D", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"b", "[", 
      RowBox[{"x", ",", "y"}], "]"}], 
     RowBox[{"D", "[", 
      RowBox[{
       RowBox[{"u", "[", 
        RowBox[{"x", ",", "y"}], "]"}], ",", "y"}], "]"}]}], ",", "y"}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"D", "[", 
  RowBox[{"%", ",", "x"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"D", "[", 
  RowBox[{"%", ",", "x"}], "]"}]}], "Input",
 CellChangeTimes->{{3.617135688405211*^9, 3.617135724816413*^9}, 
   3.617135783336124*^9, {3.617135958460392*^9, 3.617135976424328*^9}, {
   3.617136061784239*^9, 3.617136093213669*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"f", "[", 
   RowBox[{"x", ",", "y"}], "]"}], "+", 
  RowBox[{
   RowBox[{"u", "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{"\[Sigma]", "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "-", 
  RowBox[{
   RowBox[{
    SuperscriptBox["b", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"0", ",", "1"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"0", ",", "1"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "-", 
  RowBox[{
   RowBox[{"b", "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"0", ",", "2"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}]}]], "Output",
 CellChangeTimes->{3.61713598204593*^9, 3.6171360938394737`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"-", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"0", ",", "2"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], " ", 
   RowBox[{
    SuperscriptBox["b", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"1", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   SuperscriptBox["f", 
    TagBox[
     RowBox[{"(", 
      RowBox[{"1", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None], "[", 
   RowBox[{"x", ",", "y"}], "]"}], "+", 
  RowBox[{
   RowBox[{"\[Sigma]", "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"1", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   RowBox[{"u", "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["\[Sigma]", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"1", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "-", 
  RowBox[{
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"0", ",", "1"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["b", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"1", ",", "1"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "-", 
  RowBox[{
   RowBox[{
    SuperscriptBox["b", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"0", ",", "1"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"1", ",", "1"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "-", 
  RowBox[{
   RowBox[{"b", "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"1", ",", "2"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}]}]], "Output",
 CellChangeTimes->{3.61713598204593*^9, 3.617136093846274*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"2", " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"1", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["\[Sigma]", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"1", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "-", 
  RowBox[{"2", " ", 
   RowBox[{
    SuperscriptBox["b", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"1", ",", "1"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"1", ",", "1"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "-", 
  RowBox[{"2", " ", 
   RowBox[{
    SuperscriptBox["b", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"1", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"1", ",", "2"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "-", 
  RowBox[{
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"0", ",", "2"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["b", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"2", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   SuperscriptBox["f", 
    TagBox[
     RowBox[{"(", 
      RowBox[{"2", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None], "[", 
   RowBox[{"x", ",", "y"}], "]"}], "+", 
  RowBox[{
   RowBox[{"\[Sigma]", "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"2", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   RowBox[{"u", "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["\[Sigma]", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"2", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "-", 
  RowBox[{
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"0", ",", "1"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["b", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"2", ",", "1"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "-", 
  RowBox[{
   RowBox[{
    SuperscriptBox["b", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"0", ",", "1"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"2", ",", "1"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "-", 
  RowBox[{
   RowBox[{"b", "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"2", ",", "2"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}]}]], "Output",
 CellChangeTimes->{3.61713598204593*^9, 3.617136093854302*^9}]
}, Open  ]],

Cell[BoxData[{
 RowBox[{"Uxph", "=."}], "\[IndentingNewLine]", 
 RowBox[{"Uxmh", "=."}], "\[IndentingNewLine]", 
 RowBox[{"Axph2", "=."}], "\[IndentingNewLine]", 
 RowBox[{"Axmh2", "=."}], "\[IndentingNewLine]", 
 RowBox[{"Bxph2", "=."}], "\[IndentingNewLine]", 
 RowBox[{"Bxmh2", "=."}], "\[IndentingNewLine]", 
 RowBox[{"Byph2", "=."}], "\[IndentingNewLine]", 
 RowBox[{"Bymh2", "=."}], "\[IndentingNewLine]", 
 RowBox[{"Uyph", "=."}], "\[IndentingNewLine]", 
 RowBox[{"Uymh", "=."}], "\[IndentingNewLine]", 
 RowBox[{"Bxph2yph2", "=."}], "\[IndentingNewLine]", 
 RowBox[{"Bxmh2yph2", "=."}], "\[IndentingNewLine]", 
 RowBox[{"Bxph2ymh2", "=."}], "\[IndentingNewLine]", 
 RowBox[{"Bxmh2ymh2", "=."}], "\[IndentingNewLine]", 
 RowBox[{"Uxphyph", "=."}], "\[IndentingNewLine]", 
 RowBox[{"Uxmhymh", "=."}], "\[IndentingNewLine]", 
 RowBox[{"Uxmhyph", "=."}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Uxphymh", "=."}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{"Ax3", "=", 
    RowBox[{"D", "[", 
     RowBox[{
      RowBox[{"a", "[", 
       RowBox[{"x", ",", "y"}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"x", ",", "3"}], "}"}]}], "]"}]}], 
   "*)"}]}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.6171517100681562`*^9, 3.6171517153914013`*^9}, {
  3.6171518893776417`*^9, 3.617151906673403*^9}}],

Cell[BoxData[
 RowBox[{"Uxph", ",", "Uxmh", ",", "Uyph", ",", "Uymh", ",", "Uxphyph", ",", 
  "Uxmhymh", ",", "Uxmhyph", ",", "Uxphymh"}]], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Collect", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Axph2", " ", 
         FractionBox[
          RowBox[{"Uxph", "-", 
           RowBox[{"u", "[", 
            RowBox[{"x", ",", "y"}], "]"}]}], "hx"]}], "-", " ", 
        RowBox[{"Axmh2", " ", 
         FractionBox[
          RowBox[{
           RowBox[{"u", "[", 
            RowBox[{"x", ",", "y"}], "]"}], "-", "Uxmh"}], "hx"]}]}], ")"}], 
      FractionBox["1", "hx"]}], "-", 
     RowBox[{
      FractionBox[
       SuperscriptBox["hx", "2"], "12"], 
      RowBox[{"(", 
       RowBox[{"F3x", "-", 
        RowBox[{
         FractionBox["1", 
          RowBox[{"a", "[", 
           RowBox[{"x", ",", "y"}], "]"}]], 
         FractionBox[
          RowBox[{"Axph2", "-", "Axmh2"}], "hx"], "Fxx"}], "+", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            FractionBox["2", 
             SuperscriptBox[
              RowBox[{"a", "[", 
               RowBox[{"x", ",", "y"}], "]"}], "2"]], 
            SuperscriptBox[
             RowBox[{"(", 
              FractionBox[
               RowBox[{"Axph2", "-", "Axmh2"}], "hx"], ")"}], "2"]}], "-", 
           RowBox[{
            FractionBox["3", 
             RowBox[{"2", " ", 
              RowBox[{"a", "[", 
               RowBox[{"x", ",", "y"}], "]"}]}]], 
            FractionBox[
             RowBox[{"Axph2", "-", 
              RowBox[{"2", 
               RowBox[{"a", "[", 
                RowBox[{"x", ",", "y"}], "]"}]}], "+", "Axmh2"}], 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{"hx", "/", "2"}], ")"}], "2"]]}]}], ")"}], "Fx"}], "+", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            FractionBox[
             RowBox[{"5", " "}], 
             RowBox[{"2", " ", 
              RowBox[{"a", "[", 
               RowBox[{"x", ",", "y"}], "]"}]}]], 
            FractionBox[
             RowBox[{"Axph2", "-", "Axmh2"}], "hx"], 
            FractionBox[
             RowBox[{"Axph2", "-", 
              RowBox[{"2", 
               RowBox[{"a", "[", 
                RowBox[{"x", ",", "y"}], "]"}]}], "+", "Axmh2"}], 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{"hx", "/", "2"}], ")"}], "2"]]}], "-", 
           RowBox[{
            FractionBox[
             RowBox[{"2", "  "}], 
             SuperscriptBox[
              RowBox[{"a", "[", 
               RowBox[{"x", ",", "y"}], "]"}], "2"]], 
            SuperscriptBox[
             RowBox[{"(", 
              FractionBox[
               RowBox[{"Axph2", "-", "Axmh2"}], "hx"], ")"}], "3"]}], "-", 
           RowBox[{
            FractionBox["1", "2"], "  ", "Ax3"}]}], ")"}], 
         FractionBox[
          RowBox[{"Uxph", "-", "Uxmh"}], 
          RowBox[{"2", "hx"}]]}]}], ")"}]}]}], "/.", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Fx", "->", 
       RowBox[{
        RowBox[{"f", "[", 
         RowBox[{"x", ",", "y"}], "]"}], "+", 
        RowBox[{
         RowBox[{"u", "[", 
          RowBox[{"x", ",", "y"}], "]"}], " ", 
         RowBox[{"\[Sigma]", "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "-", 
        RowBox[{
         FractionBox[
          RowBox[{"Byph2", "-", "Bymh2"}], "hy"], " ", 
         FractionBox[
          RowBox[{"Uyph", "-", "Uymh"}], 
          RowBox[{"2", "hy"}]]}], "-", 
        RowBox[{
         RowBox[{"b", "[", 
          RowBox[{"x", ",", "y"}], "]"}], " ", 
         FractionBox[
          RowBox[{"Uyph", "-", 
           RowBox[{"2", 
            RowBox[{"u", "[", 
             RowBox[{"x", ",", "y"}], "]"}]}], "+", "Uymh"}], 
          SuperscriptBox["hy", "2"]]}]}]}], ",", 
      RowBox[{"Fxx", "->", 
       RowBox[{
        RowBox[{
         RowBox[{"-", 
          FractionBox[
           RowBox[{"Uyph", "-", 
            RowBox[{"2", 
             RowBox[{"u", "[", 
              RowBox[{"x", ",", "y"}], "]"}]}], "+", "Uymh"}], 
           SuperscriptBox["hy", "2"]]}], " ", 
         FractionBox[
          RowBox[{"Bxph2", "-", "Bxmh2"}], "hx"]}], "+", 
        RowBox[{
         SuperscriptBox["f", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"1", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}], "+", 
        RowBox[{
         RowBox[{"\[Sigma]", "[", 
          RowBox[{"x", ",", "y"}], "]"}], " ", 
         FractionBox[
          RowBox[{"Uxph", "-", "Uxmh"}], 
          RowBox[{"2", "hx"}]]}], "+", 
        RowBox[{
         RowBox[{"u", "[", 
          RowBox[{"x", ",", "y"}], "]"}], " ", 
         RowBox[{
          SuperscriptBox["\[Sigma]", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"1", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "-", 
        RowBox[{
         FractionBox[
          RowBox[{"Uyph", "-", "Uymh"}], 
          RowBox[{"2", "hy"}]], " ", 
         FractionBox["1", "hy"], 
         RowBox[{"(", 
          RowBox[{
           FractionBox[
            RowBox[{"Bxph2yph2", "-", "Bxmh2yph2"}], "hx"], "-", 
           FractionBox[
            RowBox[{"Bxph2ymh2", "-", "Bxmh2ymh2"}], "hx"]}], ")"}]}], "-", 
        RowBox[{
         FractionBox[
          RowBox[{"Byph2", "-", "Bymh2"}], "hy"], " ", 
         FractionBox["1", 
          RowBox[{"2", "hy"}]], 
         RowBox[{"(", 
          RowBox[{
           FractionBox[
            RowBox[{"Uxphyph", "-", "Uxmhyph"}], 
            RowBox[{"2", "hx"}]], "-", 
           FractionBox[
            RowBox[{"Uxphymh", "-", "Uxmhymh"}], 
            RowBox[{"2", "hx"}]]}], ")"}]}], "-", 
        RowBox[{
         RowBox[{"b", "[", 
          RowBox[{"x", ",", "y"}], "]"}], " ", 
         FractionBox["1", 
          RowBox[{"2", "hx"}]], 
         RowBox[{"(", 
          RowBox[{
           FractionBox[
            RowBox[{"Uxphyph", "-", 
             RowBox[{"2", "Uxph"}], "+", "Uxphymh"}], 
            SuperscriptBox["hy", "2"]], "-", 
           FractionBox[
            RowBox[{"Uxmhyph", "-", 
             RowBox[{"2", "Uxmh"}], "+", "Uxmhymh"}], 
            SuperscriptBox["hy", "2"]]}], ")"}]}]}]}], ",", 
      RowBox[{"F3x", "->", 
       RowBox[{
        RowBox[{"2", "  ", 
         FractionBox[
          RowBox[{"Uxph", "-", "Uxmh"}], 
          RowBox[{"2", "hx"}]], " ", 
         RowBox[{
          SuperscriptBox["\[Sigma]", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"1", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "-", 
        RowBox[{"2", " ", 
         FractionBox["1", "hy"], 
         RowBox[{"(", 
          RowBox[{
           FractionBox[
            RowBox[{"Bxph2yph2", "-", "Bxmh2yph2"}], "hx"], "-", 
           FractionBox[
            RowBox[{"Bxph2ymh2", "-", "Bxmh2ymh2"}], "hx"]}], ")"}], " ", 
         FractionBox["1", 
          RowBox[{"2", "hy"}]], 
         RowBox[{"(", 
          RowBox[{
           FractionBox[
            RowBox[{"Uxphyph", "-", "Uxmhyph"}], 
            RowBox[{"2", "hx"}]], "-", 
           FractionBox[
            RowBox[{"Uxphymh", "-", "Uxmhymh"}], 
            RowBox[{"2", "hx"}]]}], ")"}]}], "-", 
        RowBox[{"2", " ", 
         FractionBox[
          RowBox[{"Bxph2", "-", "Bxmh2"}], "hx"], " ", 
         FractionBox["1", 
          RowBox[{"2", "hx"}]], 
         RowBox[{"(", 
          RowBox[{
           FractionBox[
            RowBox[{"Uxphyph", "-", 
             RowBox[{"2", "Uxph"}], "+", "Uxphymh"}], 
            SuperscriptBox["hy", "2"]], "-", 
           FractionBox[
            RowBox[{"Uxmhyph", "-", 
             RowBox[{"2", "Uxmh"}], "+", "Uxmhymh"}], 
            SuperscriptBox["hy", "2"]]}], ")"}]}], "-", 
        RowBox[{
         FractionBox[
          RowBox[{"Uyph", "-", 
           RowBox[{"2", 
            RowBox[{"u", "[", 
             RowBox[{"x", ",", "y"}], "]"}]}], "+", "Uymh"}], 
          SuperscriptBox["hy", "2"]], " ", 
         FractionBox[
          RowBox[{"Bxph2", "-", 
           RowBox[{"2", 
            RowBox[{"b", "[", 
             RowBox[{"x", ",", "y"}], "]"}]}], "+", "Bxmh2"}], 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"hx", "/", "2"}], ")"}], "2"]]}], "+", 
        RowBox[{
         SuperscriptBox["f", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"2", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}], "+", 
        RowBox[{
         RowBox[{"\[Sigma]", "[", 
          RowBox[{"x", ",", "y"}], "]"}], " ", 
         FractionBox[
          RowBox[{"Uxph", "-", 
           RowBox[{"2", 
            RowBox[{"u", "[", 
             RowBox[{"x", ",", "y"}], "]"}]}], "+", "Uxmh"}], 
          SuperscriptBox["hx", "2"]]}], "+", 
        RowBox[{
         RowBox[{"u", "[", 
          RowBox[{"x", ",", "y"}], "]"}], " ", 
         RowBox[{
          SuperscriptBox["\[Sigma]", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"2", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "-", 
        RowBox[{
         FractionBox[
          RowBox[{"Uyph", "-", "Uymh"}], 
          RowBox[{"2", "hy"}]], " ", 
         FractionBox["1", "hy"], 
         RowBox[{"(", 
          RowBox[{
           FractionBox[
            RowBox[{"Bxph2yph2", "-", 
             RowBox[{"2", "Byph2"}], "+", "Bxmh2yph2"}], 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"hx", "/", "2"}], ")"}], "2"]], "-", 
           FractionBox[
            RowBox[{"Bxph2ymh2", "-", 
             RowBox[{"2", "Bymh2"}], "+", "Bxmh2ymh2"}], 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"hx", "/", "2"}], ")"}], "2"]]}], ")"}]}], "-", 
        RowBox[{
         FractionBox[
          RowBox[{"Byph2", "-", "Bymh2"}], "hy"], " ", 
         FractionBox["1", 
          RowBox[{"2", "hy"}]], 
         RowBox[{"(", 
          RowBox[{
           FractionBox[
            RowBox[{"Uxphyph", "-", 
             RowBox[{"2", "Uyph"}], "+", "Uxmhyph"}], 
            SuperscriptBox["hx", "2"]], "-", 
           FractionBox[
            RowBox[{"Uxphymh", "-", 
             RowBox[{"2", "Uymh"}], "+", "Uxmhymh"}], 
            SuperscriptBox["hx", "2"]]}], ")"}]}], "-", 
        RowBox[{
         RowBox[{"b", "[", 
          RowBox[{"x", ",", "y"}], "]"}], " ", 
         FractionBox["1", 
          SuperscriptBox["hx", "2"]], 
         RowBox[{"(", 
          RowBox[{
           FractionBox[
            RowBox[{"Uxphyph", "-", 
             RowBox[{"2", "Uxph"}], "+", "Uxphymh"}], 
            SuperscriptBox["hy", "2"]], "-", 
           RowBox[{"2", 
            FractionBox[
             RowBox[{"Uyph", "-", 
              RowBox[{"2", 
               RowBox[{"u", "[", 
                RowBox[{"x", ",", "y"}], "]"}]}], "+", "Uymh"}], 
             SuperscriptBox["hy", "2"]]}], "+", 
           FractionBox[
            RowBox[{"Uxmhyph", "-", 
             RowBox[{"2", "Uxmh"}], "+", "Uxmhymh"}], 
            SuperscriptBox["hy", "2"]]}], ")"}]}]}]}]}], "}"}]}], ",", 
   RowBox[{"{", 
    RowBox[{
    "Uxph", ",", "Uxmh", ",", "Uyph", ",", "Uymh", ",", "Uxphyph", ",", 
     "Uxmhymh", ",", "Uxmhyph", ",", "Uxphymh", ",", 
     RowBox[{"u", "[", 
      RowBox[{"x", ",", "y"}], "]"}], ",", 
     RowBox[{"f", "[", 
      RowBox[{"x", ",", "y"}], "]"}], ",", 
     RowBox[{
      SuperscriptBox["f", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"1", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}], ",", 
     RowBox[{
      SuperscriptBox["f", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"2", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "}"}], ",", "Simplify"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.6171307541201277`*^9, 3.61713078722482*^9}, {
   3.6171309043919487`*^9, 3.6171309720746613`*^9}, {3.61713155215233*^9, 
   3.617131610751875*^9}, {3.617132994461871*^9, 3.617133011695207*^9}, {
   3.6171515282138653`*^9, 3.617151700400342*^9}, {3.617151810438719*^9, 
   3.61715184475765*^9}, 3.617151968139624*^9, {3.617152115846596*^9, 
   3.617152117960465*^9}, {3.6171521843836203`*^9, 3.617152185271654*^9}, {
   3.617152230101906*^9, 3.61715223570758*^9}, {3.6177553557953176`*^9, 
   3.617755355820817*^9}, {3.618693319096714*^9, 3.618693330128849*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   RowBox[{
    FractionBox["1", 
     RowBox[{"48", " ", 
      SuperscriptBox["hy", "2"], " ", 
      RowBox[{"a", "[", 
       RowBox[{"x", ",", "y"}], "]"}]}]], 
    RowBox[{"Uxphyph", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"Axmh2", "-", "Axph2"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"Bymh2", "-", "Byph2", "-", 
          RowBox[{"2", " ", 
           RowBox[{"b", "[", 
            RowBox[{"x", ",", "y"}], "]"}]}]}], ")"}]}], "+", 
       RowBox[{"2", " ", 
        RowBox[{"a", "[", 
         RowBox[{"x", ",", "y"}], "]"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", "Bxmh2"}], "-", "Bxmh2ymh2", "+", "Bxmh2yph2", 
          "-", 
          RowBox[{"2", " ", "Bxph2"}], "+", "Bxph2ymh2", "-", "Bxph2yph2", 
          "+", "Bymh2", "-", "Byph2", "-", 
          RowBox[{"2", " ", 
           RowBox[{"b", "[", 
            RowBox[{"x", ",", "y"}], "]"}]}]}], ")"}]}]}], ")"}]}]}]}], "+", 
  RowBox[{
   FractionBox["1", 
    RowBox[{"48", " ", 
     SuperscriptBox["hy", "2"], " ", 
     RowBox[{"a", "[", 
      RowBox[{"x", ",", "y"}], "]"}]}]], 
   RowBox[{"Uxphymh", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"-", "2"}], " ", 
       RowBox[{"a", "[", 
        RowBox[{"x", ",", "y"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", " ", "Bxmh2"}], "+", "Bxmh2ymh2", "-", "Bxmh2yph2", "-", 
         RowBox[{"2", " ", "Bxph2"}], "-", "Bxph2ymh2", "+", "Bxph2yph2", "-",
          "Bymh2", "+", "Byph2", "-", 
         RowBox[{"2", " ", 
          RowBox[{"b", "[", 
           RowBox[{"x", ",", "y"}], "]"}]}]}], ")"}]}], "+", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"Axmh2", "-", "Axph2"}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"Bymh2", "-", "Byph2", "+", 
         RowBox[{"2", " ", 
          RowBox[{"b", "[", 
           RowBox[{"x", ",", "y"}], "]"}]}]}], ")"}]}]}], ")"}]}]}], "+", 
  RowBox[{
   FractionBox["1", 
    RowBox[{"48", " ", 
     SuperscriptBox["hy", "2"], " ", 
     RowBox[{"a", "[", 
      RowBox[{"x", ",", "y"}], "]"}]}]], 
   RowBox[{"Uxmhymh", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"-", 
        RowBox[{"(", 
         RowBox[{"Axmh2", "-", "Axph2"}], ")"}]}], " ", 
       RowBox[{"(", 
        RowBox[{"Bymh2", "-", "Byph2", "+", 
         RowBox[{"2", " ", 
          RowBox[{"b", "[", 
           RowBox[{"x", ",", "y"}], "]"}]}]}], ")"}]}], "+", 
      RowBox[{"2", " ", 
       RowBox[{"a", "[", 
        RowBox[{"x", ",", "y"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", " ", "Bxmh2"}], "+", "Bxmh2ymh2", "-", "Bxmh2yph2", "-", 
         RowBox[{"2", " ", "Bxph2"}], "-", "Bxph2ymh2", "+", "Bxph2yph2", "+",
          "Bymh2", "-", "Byph2", "+", 
         RowBox[{"2", " ", 
          RowBox[{"b", "[", 
           RowBox[{"x", ",", "y"}], "]"}]}]}], ")"}]}]}], ")"}]}]}], "+", 
  RowBox[{
   FractionBox["1", 
    RowBox[{"48", " ", 
     SuperscriptBox["hy", "2"], " ", 
     RowBox[{"a", "[", 
      RowBox[{"x", ",", "y"}], "]"}]}]], 
   RowBox[{"Uxmhyph", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"Axmh2", "-", "Axph2"}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"Bymh2", "-", "Byph2", "-", 
         RowBox[{"2", " ", 
          RowBox[{"b", "[", 
           RowBox[{"x", ",", "y"}], "]"}]}]}], ")"}]}], "+", 
      RowBox[{"2", " ", 
       RowBox[{"a", "[", 
        RowBox[{"x", ",", "y"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", " ", "Bxmh2"}], "-", "Bxmh2ymh2", "+", "Bxmh2yph2", "-", 
         RowBox[{"2", " ", "Bxph2"}], "+", "Bxph2ymh2", "-", "Bxph2yph2", "-",
          "Bymh2", "+", "Byph2", "+", 
         RowBox[{"2", " ", 
          RowBox[{"b", "[", 
           RowBox[{"x", ",", "y"}], "]"}]}]}], ")"}]}]}], ")"}]}]}], "+", 
  RowBox[{
   FractionBox["1", 
    RowBox[{"24", " ", 
     SuperscriptBox["hy", "2"], " ", 
     SuperscriptBox[
      RowBox[{"a", "[", 
       RowBox[{"x", ",", "y"}], "]"}], "2"]}]], 
   RowBox[{"Uymh", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"2", " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"Axmh2", "-", "Axph2"}], ")"}], "2"], " ", 
       RowBox[{"(", 
        RowBox[{"Bymh2", "-", "Byph2", "+", 
         RowBox[{"2", " ", 
          RowBox[{"b", "[", 
           RowBox[{"x", ",", "y"}], "]"}]}]}], ")"}]}], "+", 
      RowBox[{"2", " ", 
       SuperscriptBox[
        RowBox[{"a", "[", 
         RowBox[{"x", ",", "y"}], "]"}], "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"4", " ", "Bxmh2"}], "+", 
         RowBox[{"2", " ", "Bxmh2ymh2"}], "-", 
         RowBox[{"2", " ", "Bxmh2yph2"}], "+", 
         RowBox[{"4", " ", "Bxph2"}], "+", 
         RowBox[{"2", " ", "Bxph2ymh2"}], "-", 
         RowBox[{"2", " ", "Bxph2yph2"}], "+", "Bymh2", "-", "Byph2", "+", 
         RowBox[{"2", " ", 
          RowBox[{"b", "[", 
           RowBox[{"x", ",", "y"}], "]"}]}]}], ")"}]}], "-", 
      RowBox[{
       RowBox[{"a", "[", 
        RowBox[{"x", ",", "y"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"Axph2", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "2"}], " ", "Bxmh2"}], "-", "Bxmh2ymh2", "+", 
            "Bxmh2yph2", "+", 
            RowBox[{"2", " ", "Bxph2"}], "+", "Bxph2ymh2", "-", "Bxph2yph2", 
            "+", 
            RowBox[{"6", " ", "Bymh2"}], "-", 
            RowBox[{"6", " ", "Byph2"}]}], ")"}]}], "+", 
         RowBox[{"Axmh2", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", " ", "Bxmh2"}], "+", "Bxmh2ymh2", "-", "Bxmh2yph2", 
            "-", 
            RowBox[{"2", " ", "Bxph2"}], "-", "Bxph2ymh2", "+", "Bxph2yph2", 
            "+", 
            RowBox[{"6", " ", "Bymh2"}], "-", 
            RowBox[{"6", " ", "Byph2"}]}], ")"}]}], "+", 
         RowBox[{"12", " ", 
          RowBox[{"(", 
           RowBox[{"Axmh2", "+", "Axph2"}], ")"}], " ", 
          RowBox[{"b", "[", 
           RowBox[{"x", ",", "y"}], "]"}]}]}], ")"}]}]}], ")"}]}]}], "-", 
  RowBox[{
   FractionBox["1", 
    RowBox[{"24", " ", 
     SuperscriptBox["hy", "2"], " ", 
     SuperscriptBox[
      RowBox[{"a", "[", 
       RowBox[{"x", ",", "y"}], "]"}], "2"]}]], 
   RowBox[{"Uyph", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"2", " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"Axmh2", "-", "Axph2"}], ")"}], "2"], " ", 
       RowBox[{"(", 
        RowBox[{"Bymh2", "-", "Byph2", "-", 
         RowBox[{"2", " ", 
          RowBox[{"b", "[", 
           RowBox[{"x", ",", "y"}], "]"}]}]}], ")"}]}], "-", 
      RowBox[{"2", " ", 
       SuperscriptBox[
        RowBox[{"a", "[", 
         RowBox[{"x", ",", "y"}], "]"}], "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"4", " ", "Bxmh2"}], "-", 
         RowBox[{"2", " ", "Bxmh2ymh2"}], "+", 
         RowBox[{"2", " ", "Bxmh2yph2"}], "+", 
         RowBox[{"4", " ", "Bxph2"}], "-", 
         RowBox[{"2", " ", "Bxph2ymh2"}], "+", 
         RowBox[{"2", " ", "Bxph2yph2"}], "-", "Bymh2", "+", "Byph2", "+", 
         RowBox[{"2", " ", 
          RowBox[{"b", "[", 
           RowBox[{"x", ",", "y"}], "]"}]}]}], ")"}]}], "+", 
      RowBox[{
       RowBox[{"a", "[", 
        RowBox[{"x", ",", "y"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"Axmh2", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", " ", "Bxmh2"}], "-", "Bxmh2ymh2", "+", "Bxmh2yph2", 
            "-", 
            RowBox[{"2", " ", "Bxph2"}], "+", "Bxph2ymh2", "-", "Bxph2yph2", 
            "-", 
            RowBox[{"6", " ", "Bymh2"}], "+", 
            RowBox[{"6", " ", "Byph2"}]}], ")"}]}], "+", 
         RowBox[{"Axph2", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "2"}], " ", "Bxmh2"}], "+", "Bxmh2ymh2", "-", 
            "Bxmh2yph2", "+", 
            RowBox[{"2", " ", "Bxph2"}], "-", "Bxph2ymh2", "+", "Bxph2yph2", 
            "-", 
            RowBox[{"6", " ", "Bymh2"}], "+", 
            RowBox[{"6", " ", "Byph2"}]}], ")"}]}], "+", 
         RowBox[{"12", " ", 
          RowBox[{"(", 
           RowBox[{"Axmh2", "+", "Axph2"}], ")"}], " ", 
          RowBox[{"b", "[", 
           RowBox[{"x", ",", "y"}], "]"}]}]}], ")"}]}]}], ")"}]}]}], "-", 
  FractionBox[
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"Axmh2", "-", "Axph2"}], ")"}], "2"], "-", 
      RowBox[{"3", " ", 
       RowBox[{"(", 
        RowBox[{"Axmh2", "+", "Axph2"}], ")"}], " ", 
       RowBox[{"a", "[", 
        RowBox[{"x", ",", "y"}], "]"}]}], "+", 
      RowBox[{"6", " ", 
       SuperscriptBox[
        RowBox[{"a", "[", 
         RowBox[{"x", ",", "y"}], "]"}], "2"]}]}], ")"}], " ", 
    RowBox[{"f", "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], 
   RowBox[{"6", " ", 
    SuperscriptBox[
     RowBox[{"a", "[", 
      RowBox[{"x", ",", "y"}], "]"}], "2"]}]], "+", 
  FractionBox[
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "Axmh2"}], "+", "Axph2"}], ")"}], " ", "hx", " ", 
    RowBox[{
     SuperscriptBox["f", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"1", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], 
   RowBox[{"12", " ", 
    RowBox[{"a", "[", 
     RowBox[{"x", ",", "y"}], "]"}]}]], "+", 
  RowBox[{
   FractionBox["1", 
    RowBox[{"48", " ", 
     SuperscriptBox["hx", "2"], " ", 
     SuperscriptBox["hy", "2"], " ", 
     SuperscriptBox[
      RowBox[{"a", "[", 
       RowBox[{"x", ",", "y"}], "]"}], "2"]}]], 
   RowBox[{"Uxph", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"-", "4"}], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"Axmh2", "-", "Axph2"}], ")"}], "3"], " ", 
       SuperscriptBox["hy", "2"]}], "+", 
      RowBox[{"2", " ", 
       RowBox[{"(", 
        RowBox[{"Axmh2", "-", "Axph2"}], ")"}], " ", 
       RowBox[{"a", "[", 
        RowBox[{"x", ",", "y"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "2"}], " ", 
          SuperscriptBox["hx", "2"], " ", 
          RowBox[{"b", "[", 
           RowBox[{"x", ",", "y"}], "]"}]}], "+", 
         RowBox[{
          SuperscriptBox["hy", "2"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"10", " ", 
             RowBox[{"(", 
              RowBox[{"Axmh2", "+", "Axph2"}], ")"}]}], "-", 
            RowBox[{
             SuperscriptBox["hx", "2"], " ", 
             RowBox[{"\[Sigma]", "[", 
              RowBox[{"x", ",", "y"}], "]"}]}]}], ")"}]}]}], ")"}]}], "+", 
      RowBox[{
       SuperscriptBox[
        RowBox[{"a", "[", 
         RowBox[{"x", ",", "y"}], "]"}], "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"8", " ", "Bxmh2", " ", 
          SuperscriptBox["hx", "2"]}], "-", 
         RowBox[{"8", " ", "Bxph2", " ", 
          SuperscriptBox["hx", "2"]}], "-", 
         RowBox[{"40", " ", "Axmh2", " ", 
          SuperscriptBox["hy", "2"]}], "+", 
         RowBox[{"88", " ", "Axph2", " ", 
          SuperscriptBox["hy", "2"]}], "+", 
         RowBox[{"Ax3", " ", 
          SuperscriptBox["hx", "3"], " ", 
          SuperscriptBox["hy", "2"]}], "-", 
         RowBox[{"8", " ", 
          SuperscriptBox["hx", "2"], " ", 
          RowBox[{"b", "[", 
           RowBox[{"x", ",", "y"}], "]"}]}], "-", 
         RowBox[{"4", " ", 
          SuperscriptBox["hx", "2"], " ", 
          SuperscriptBox["hy", "2"], " ", 
          RowBox[{"\[Sigma]", "[", 
           RowBox[{"x", ",", "y"}], "]"}]}], "-", 
         RowBox[{"4", " ", 
          SuperscriptBox["hx", "3"], " ", 
          SuperscriptBox["hy", "2"], " ", 
          RowBox[{
           SuperscriptBox["\[Sigma]", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"x", ",", "y"}], "]"}]}]}], ")"}]}]}], ")"}]}]}], "-", 
  RowBox[{
   FractionBox["1", 
    RowBox[{"48", " ", 
     SuperscriptBox["hx", "2"], " ", 
     SuperscriptBox["hy", "2"], " ", 
     SuperscriptBox[
      RowBox[{"a", "[", 
       RowBox[{"x", ",", "y"}], "]"}], "2"]}]], 
   RowBox[{"Uxmh", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"-", "4"}], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"Axmh2", "-", "Axph2"}], ")"}], "3"], " ", 
       SuperscriptBox["hy", "2"]}], "+", 
      RowBox[{"2", " ", 
       RowBox[{"(", 
        RowBox[{"Axmh2", "-", "Axph2"}], ")"}], " ", 
       RowBox[{"a", "[", 
        RowBox[{"x", ",", "y"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "2"}], " ", 
          SuperscriptBox["hx", "2"], " ", 
          RowBox[{"b", "[", 
           RowBox[{"x", ",", "y"}], "]"}]}], "+", 
         RowBox[{
          SuperscriptBox["hy", "2"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"10", " ", 
             RowBox[{"(", 
              RowBox[{"Axmh2", "+", "Axph2"}], ")"}]}], "-", 
            RowBox[{
             SuperscriptBox["hx", "2"], " ", 
             RowBox[{"\[Sigma]", "[", 
              RowBox[{"x", ",", "y"}], "]"}]}]}], ")"}]}]}], ")"}]}], "+", 
      RowBox[{
       SuperscriptBox[
        RowBox[{"a", "[", 
         RowBox[{"x", ",", "y"}], "]"}], "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"8", " ", "Bxmh2", " ", 
          SuperscriptBox["hx", "2"]}], "-", 
         RowBox[{"8", " ", "Bxph2", " ", 
          SuperscriptBox["hx", "2"]}], "-", 
         RowBox[{"88", " ", "Axmh2", " ", 
          SuperscriptBox["hy", "2"]}], "+", 
         RowBox[{"40", " ", "Axph2", " ", 
          SuperscriptBox["hy", "2"]}], "+", 
         RowBox[{"Ax3", " ", 
          SuperscriptBox["hx", "3"], " ", 
          SuperscriptBox["hy", "2"]}], "+", 
         RowBox[{"8", " ", 
          SuperscriptBox["hx", "2"], " ", 
          RowBox[{"b", "[", 
           RowBox[{"x", ",", "y"}], "]"}]}], "+", 
         RowBox[{"4", " ", 
          SuperscriptBox["hx", "2"], " ", 
          SuperscriptBox["hy", "2"], " ", 
          RowBox[{"\[Sigma]", "[", 
           RowBox[{"x", ",", "y"}], "]"}]}], "-", 
         RowBox[{"4", " ", 
          SuperscriptBox["hx", "3"], " ", 
          SuperscriptBox["hy", "2"], " ", 
          RowBox[{
           SuperscriptBox["\[Sigma]", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"x", ",", "y"}], "]"}]}]}], ")"}]}]}], ")"}]}]}], "-", 
  RowBox[{
   FractionBox["1", "12"], " ", 
   SuperscriptBox["hx", "2"], " ", 
   RowBox[{
    SuperscriptBox["f", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"2", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["1", 
    RowBox[{"12", " ", 
     SuperscriptBox["hx", "2"], " ", 
     SuperscriptBox["hy", "2"], " ", 
     SuperscriptBox[
      RowBox[{"a", "[", 
       RowBox[{"x", ",", "y"}], "]"}], "2"]}]], 
   RowBox[{
    RowBox[{"u", "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"-", "2"}], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"Axmh2", "-", "Axph2"}], ")"}], "2"], " ", 
       SuperscriptBox["hx", "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", " ", 
          RowBox[{"b", "[", 
           RowBox[{"x", ",", "y"}], "]"}]}], "+", 
         RowBox[{
          SuperscriptBox["hy", "2"], " ", 
          RowBox[{"\[Sigma]", "[", 
           RowBox[{"x", ",", "y"}], "]"}]}]}], ")"}]}], "+", 
      RowBox[{
       SuperscriptBox["hx", "2"], " ", 
       RowBox[{"a", "[", 
        RowBox[{"x", ",", "y"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"12", " ", 
          RowBox[{"(", 
           RowBox[{"Axmh2", "+", "Axph2"}], ")"}], " ", 
          RowBox[{"b", "[", 
           RowBox[{"x", ",", "y"}], "]"}]}], "+", 
         RowBox[{"6", " ", 
          RowBox[{"(", 
           RowBox[{"Axmh2", "+", "Axph2"}], ")"}], " ", 
          SuperscriptBox["hy", "2"], " ", 
          RowBox[{"\[Sigma]", "[", 
           RowBox[{"x", ",", "y"}], "]"}]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"Axmh2", "-", "Axph2"}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", " ", "Bxmh2"}], "-", 
            RowBox[{"2", " ", "Bxph2"}], "-", 
            RowBox[{"hx", " ", 
             SuperscriptBox["hy", "2"], " ", 
             RowBox[{
              SuperscriptBox["\[Sigma]", 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"1", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"x", ",", "y"}], "]"}]}]}], ")"}]}]}], ")"}]}], "-", 
      RowBox[{
       SuperscriptBox[
        RowBox[{"a", "[", 
         RowBox[{"x", ",", "y"}], "]"}], "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"8", " ", "Bxmh2", " ", 
          SuperscriptBox["hx", "2"]}], "+", 
         RowBox[{"8", " ", "Bxph2", " ", 
          SuperscriptBox["hx", "2"]}], "+", 
         RowBox[{"12", " ", "Axmh2", " ", 
          SuperscriptBox["hy", "2"]}], "+", 
         RowBox[{"12", " ", "Axph2", " ", 
          SuperscriptBox["hy", "2"]}], "+", 
         RowBox[{"4", " ", 
          SuperscriptBox["hx", "2"], " ", 
          RowBox[{"b", "[", 
           RowBox[{"x", ",", "y"}], "]"}]}], "+", 
         RowBox[{"10", " ", 
          SuperscriptBox["hx", "2"], " ", 
          SuperscriptBox["hy", "2"], " ", 
          RowBox[{"\[Sigma]", "[", 
           RowBox[{"x", ",", "y"}], "]"}]}], "+", 
         RowBox[{
          SuperscriptBox["hx", "4"], " ", 
          SuperscriptBox["hy", "2"], " ", 
          RowBox[{
           SuperscriptBox["\[Sigma]", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"2", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"x", ",", "y"}], "]"}]}]}], ")"}]}]}], 
     ")"}]}]}]}]], "Output",
 CellChangeTimes->{
  3.617130794638699*^9, 3.617130973784185*^9, 3.6171313560602083`*^9, {
   3.617131558703918*^9, 3.6171316145678453`*^9}, 3.617133012643075*^9, 
   3.617151726409767*^9, {3.617151900128098*^9, 3.617151917112157*^9}, 
   3.6171519472197647`*^9, 3.617151980941496*^9, 3.6171521220005693`*^9, 
   3.617152187237627*^9, 3.617152236735242*^9, 3.618693401013242*^9, 
   3.6186934552918453`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Collect", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      SuperscriptBox["a", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"1", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}], " ", 
     FractionBox[
      RowBox[{"Uxph", "-", "Uxmh"}], 
      RowBox[{"2", "hx"}]]}], "+", 
    RowBox[{
     RowBox[{"a", "[", 
      RowBox[{"x", ",", "y"}], "]"}], " ", 
     FractionBox[
      RowBox[{"Uxph", "-", 
       RowBox[{"2", 
        RowBox[{"u", "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], "+", "Uxmh"}], 
      SuperscriptBox["hx", "2"]]}], "-", 
    RowBox[{"D", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"a", "[", 
        RowBox[{"x", ",", "y"}], "]"}], 
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{"u", "[", 
          RowBox[{"x", ",", "y"}], "]"}], ",", "x"}], "]"}]}], ",", "x"}], 
     "]"}]}], ",", "hx", ",", "Simplify"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Collect", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Axph2", " ", 
         FractionBox[
          RowBox[{"Uxph", "-", 
           RowBox[{"u", "[", 
            RowBox[{"x", ",", "y"}], "]"}]}], "hx"]}], "-", " ", 
        RowBox[{"Axmh2", " ", 
         FractionBox[
          RowBox[{
           RowBox[{"u", "[", 
            RowBox[{"x", ",", "y"}], "]"}], "-", "Uxmh"}], "hx"]}]}], ")"}], 
      FractionBox["1", "hx"]}], "-", 
     RowBox[{"D", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"a", "[", 
         RowBox[{"x", ",", "y"}], "]"}], 
        RowBox[{"D", "[", 
         RowBox[{
          RowBox[{"u", "[", 
           RowBox[{"x", ",", "y"}], "]"}], ",", "x"}], "]"}]}], ",", "x"}], 
      "]"}]}], ",", "hx", ",", "Simplify"}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Collect", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       SuperscriptBox["b", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "1"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}], " ", 
      FractionBox[
       RowBox[{"Uyph", "-", "Uymh"}], 
       RowBox[{"2", "hy"}]]}], "+", 
     RowBox[{
      RowBox[{"b", "[", 
       RowBox[{"x", ",", "y"}], "]"}], " ", 
      FractionBox[
       RowBox[{"Uyph", "-", 
        RowBox[{"2", 
         RowBox[{"u", "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "+", "Uymh"}], 
       SuperscriptBox["hy", "2"]]}], "-", 
     RowBox[{"D", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"b", "[", 
         RowBox[{"x", ",", "y"}], "]"}], 
        RowBox[{"D", "[", 
         RowBox[{
          RowBox[{"u", "[", 
           RowBox[{"x", ",", "y"}], "]"}], ",", "y"}], "]"}]}], ",", "y"}], 
      "]"}]}], ",", "hy", ",", "Simplify"}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Collect", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Byph2", " ", 
         FractionBox[
          RowBox[{"Uyph", "-", 
           RowBox[{"u", "[", 
            RowBox[{"x", ",", "y"}], "]"}]}], "hy"]}], "-", " ", 
        RowBox[{"Bymh2", " ", 
         FractionBox[
          RowBox[{
           RowBox[{"u", "[", 
            RowBox[{"x", ",", "y"}], "]"}], "-", "Uymh"}], "hy"]}]}], ")"}], 
      FractionBox["1", "hy"]}], "-", 
     RowBox[{"D", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"b", "[", 
         RowBox[{"x", ",", "y"}], "]"}], 
        RowBox[{"D", "[", 
         RowBox[{
          RowBox[{"u", "[", 
           RowBox[{"x", ",", "y"}], "]"}], ",", "y"}], "]"}]}], ",", "y"}], 
      "]"}]}], ",", "hy", ",", "Simplify"}], "]"}], ";"}]}], "Input",
 CellChangeTimes->{{3.6177552476340933`*^9, 3.6177552884845467`*^9}, {
   3.617755384631897*^9, 3.617755508339054*^9}, {3.61775554935667*^9, 
   3.617755598476843*^9}, {3.617755656486058*^9, 3.617755656996715*^9}, {
   3.617755703924665*^9, 3.617755754892222*^9}, {3.617755855614167*^9, 
   3.6177558674359303`*^9}, {3.6177561832148647`*^9, 
   3.6177562013387737`*^9}, {3.6178005323840637`*^9, 3.617800549123954*^9}, {
   3.617800597506029*^9, 3.617800598054964*^9}, {3.618661230256428*^9, 
   3.6186612351521473`*^9}, {3.618661267296481*^9, 3.618661320443729*^9}, {
   3.618661452725643*^9, 3.61866153160385*^9}, {3.618661568890122*^9, 
   3.618661602432469*^9}, {3.618661784004874*^9, 3.618661787938251*^9}, {
   3.6186619849783993`*^9, 3.618661987265478*^9}, {3.6186620420508337`*^9, 
   3.618662066302969*^9}, 3.6186621171363573`*^9, {3.618662163283155*^9, 
   3.618662190355811*^9}, {3.618662599761437*^9, 3.6186626347449427`*^9}, {
   3.6186627190037003`*^9, 3.618662754003186*^9}, {3.6186630287475433`*^9, 
   3.618663107196513*^9}, {3.618663153077104*^9, 3.618663153932328*^9}, {
   3.618663241630946*^9, 3.618663243809928*^9}, {3.6186637386723003`*^9, 
   3.618663743940372*^9}, {3.618663841951314*^9, 3.618663877756858*^9}, {
   3.618663951557794*^9, 3.618663951941646*^9}, 3.618664036900364*^9, {
   3.6186640839776287`*^9, 3.6186640850252247`*^9}, {3.618664116545382*^9, 
   3.61866412851184*^9}, 3.618664193362694*^9, {3.618664262313836*^9, 
   3.6186642811288424`*^9}, {3.618664360362418*^9, 3.618664370676743*^9}, 
   3.618687513924329*^9, {3.618687928094699*^9, 3.618687937581472*^9}, {
   3.618688175174056*^9, 3.618688209490499*^9}, {3.618688315917759*^9, 
   3.61868831639944*^9}, 3.618688361318081*^9, {3.618688959353573*^9, 
   3.6186889612982492`*^9}, 3.618689140649508*^9, {3.61868920138736*^9, 
   3.618689231919312*^9}, {3.618689398833045*^9, 3.6186893993640757`*^9}, {
   3.618689592988398*^9, 3.618689618489666*^9}, 3.6186897552677813`*^9, {
   3.618689911713048*^9, 3.618689938636484*^9}, {3.618689987201585*^9, 
   3.6186900643016043`*^9}, {3.6186902136199703`*^9, 
   3.6186902142230463`*^9}, {3.618690297973424*^9, 3.618690430121245*^9}, {
   3.618690463092722*^9, 3.618690470206613*^9}, {3.618690534884972*^9, 
   3.618690608612938*^9}, {3.618690716677533*^9, 3.61869073530163*^9}, {
   3.618690983932871*^9, 3.6186909901959553`*^9}, {3.61869231697653*^9, 
   3.618692337594635*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   FractionBox["1", "12"], " ", 
   SuperscriptBox["hx", "2"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"2", " ", 
      RowBox[{
       SuperscriptBox["a", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"1", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}], " ", 
      RowBox[{
       SuperscriptBox["u", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"3", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}]}], "+", 
     RowBox[{
      RowBox[{"a", "[", 
       RowBox[{"x", ",", "y"}], "]"}], " ", 
      RowBox[{
       SuperscriptBox["u", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"4", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}]}]}], ")"}]}], "+", 
  RowBox[{
   FractionBox["1", "360"], " ", 
   SuperscriptBox["hx", "4"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"3", " ", 
      RowBox[{
       SuperscriptBox["a", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"1", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}], " ", 
      RowBox[{
       SuperscriptBox["u", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"5", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}]}], "+", 
     RowBox[{
      RowBox[{"a", "[", 
       RowBox[{"x", ",", "y"}], "]"}], " ", 
      RowBox[{
       SuperscriptBox["u", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"6", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}]}]}], ")"}]}], "+", 
  FractionBox[
   RowBox[{
    SuperscriptBox["hx", "6"], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"1", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"7", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "5040"]}]], "Output",
 CellChangeTimes->{
  3.618690065682925*^9, 3.618690214807081*^9, {3.618690307948709*^9, 
   3.618690431546322*^9}, 3.618690472267848*^9, {3.618690539257843*^9, 
   3.61869060994464*^9}, 3.618690736844211*^9, 3.618690991897871*^9, {
   3.618692320010199*^9, 3.618692338483386*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{"U3x", "\[IndentingNewLine]", 
 RowBox[{"Collect", "[", 
  RowBox[{"U4x", ",", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"1", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], 
  "]"}], "\[IndentingNewLine]", "Fxx"}], "Input",
 CellChangeTimes->{{3.6186942101316643`*^9, 3.6186942176752443`*^9}, {
  3.618695922594328*^9, 3.618695923965304*^9}, {3.618708299412464*^9, 
  3.618708309053732*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SuperscriptBox["u", 
    TagBox[
     RowBox[{"(", 
      RowBox[{"3", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None], "[", 
   RowBox[{"x", ",", "y"}], "]"}], "\[Rule]", 
  RowBox[{
   FractionBox["Fxx", 
    RowBox[{"a", "[", 
     RowBox[{"x", ",", "y"}], "]"}]], "-", 
   FractionBox[
    RowBox[{"2", " ", "Fx", " ", 
     RowBox[{
      SuperscriptBox["a", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"1", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], 
    SuperscriptBox[
     RowBox[{"a", "[", 
      RowBox[{"x", ",", "y"}], "]"}], "2"]], "+", 
   FractionBox[
    RowBox[{"2", " ", 
     SuperscriptBox[
      RowBox[{
       SuperscriptBox["a", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"1", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}], "2"], " ", 
     RowBox[{
      SuperscriptBox["u", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"1", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], 
    SuperscriptBox[
     RowBox[{"a", "[", 
      RowBox[{"x", ",", "y"}], "]"}], "2"]], "-", 
   FractionBox[
    RowBox[{
     RowBox[{
      SuperscriptBox["u", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"1", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}], " ", 
     RowBox[{
      SuperscriptBox["a", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"2", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], 
    RowBox[{"a", "[", 
     RowBox[{"x", ",", "y"}], "]"}]]}]}]], "Output",
 CellChangeTimes->{{3.618694211403923*^9, 3.6186942180720263`*^9}, 
   3.6186958002493753`*^9, 3.618695925053591*^9, 3.6187083095170603`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SuperscriptBox["u", 
    TagBox[
     RowBox[{"(", 
      RowBox[{"4", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None], "[", 
   RowBox[{"x", ",", "y"}], "]"}], "\[Rule]", 
  RowBox[{
   FractionBox["F3x", 
    RowBox[{"a", "[", 
     RowBox[{"x", ",", "y"}], "]"}]], "-", 
   FractionBox[
    RowBox[{"3", " ", "Fxx", " ", 
     RowBox[{
      SuperscriptBox["a", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"1", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], 
    SuperscriptBox[
     RowBox[{"a", "[", 
      RowBox[{"x", ",", "y"}], "]"}], "2"]], "+", 
   FractionBox[
    RowBox[{"6", " ", "Fx", " ", 
     SuperscriptBox[
      RowBox[{
       SuperscriptBox["a", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"1", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}], "2"]}], 
    SuperscriptBox[
     RowBox[{"a", "[", 
      RowBox[{"x", ",", "y"}], "]"}], "3"]], "-", 
   FractionBox[
    RowBox[{"3", " ", "Fx", " ", 
     RowBox[{
      SuperscriptBox["a", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"2", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], 
    SuperscriptBox[
     RowBox[{"a", "[", 
      RowBox[{"x", ",", "y"}], "]"}], "2"]], "+", 
   RowBox[{
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"1", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       FractionBox[
        RowBox[{"6", " ", 
         SuperscriptBox[
          RowBox[{
           SuperscriptBox["a", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"x", ",", "y"}], "]"}], "3"]}], 
        SuperscriptBox[
         RowBox[{"a", "[", 
          RowBox[{"x", ",", "y"}], "]"}], "3"]]}], "+", 
      FractionBox[
       RowBox[{"6", " ", 
        RowBox[{
         SuperscriptBox["a", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"1", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}], " ", 
        RowBox[{
         SuperscriptBox["a", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"2", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}]}], 
       SuperscriptBox[
        RowBox[{"a", "[", 
         RowBox[{"x", ",", "y"}], "]"}], "2"]], "-", 
      FractionBox[
       RowBox[{
        SuperscriptBox["a", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"3", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"x", ",", "y"}], "]"}], 
       RowBox[{"a", "[", 
        RowBox[{"x", ",", "y"}], "]"}]]}], ")"}]}]}]}]], "Output",
 CellChangeTimes->{{3.618694211403923*^9, 3.6186942180720263`*^9}, 
   3.6186958002493753`*^9, 3.618695925053591*^9, 3.618708309530106*^9}],

Cell[BoxData["Fxx"], "Output",
 CellChangeTimes->{{3.618694211403923*^9, 3.6186942180720263`*^9}, 
   3.6186958002493753`*^9, 3.618695925053591*^9, 3.618708309536449*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"F3x", "=."}]], "Input",
 CellChangeTimes->{{3.6187040985762377`*^9, 3.618704114723641*^9}}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.618704569523377*^9, 3.618704570299451*^9}, 
   3.618704638976316*^9}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.6187041002099943`*^9, 3.618704100847025*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"f", "[", 
    RowBox[{"x", ",", "y"}], "]"}], "+", 
   RowBox[{
    RowBox[{"u", "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{"\[Sigma]", "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "-", 
   RowBox[{"D", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"b", "[", 
       RowBox[{"x", ",", "y"}], "]"}], 
      RowBox[{"D", "[", 
       RowBox[{
        RowBox[{"u", "[", 
         RowBox[{"x", ",", "y"}], "]"}], ",", "y"}], "]"}]}], ",", "y"}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"D", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"f", "[", 
      RowBox[{"x", ",", "y"}], "]"}], "+", 
     RowBox[{
      RowBox[{"u", "[", 
       RowBox[{"x", ",", "y"}], "]"}], " ", 
      RowBox[{"\[Sigma]", "[", 
       RowBox[{"x", ",", "y"}], "]"}]}], "-", 
     RowBox[{"D", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"b", "[", 
         RowBox[{"x", ",", "y"}], "]"}], 
        RowBox[{"D", "[", 
         RowBox[{
          RowBox[{"u", "[", 
           RowBox[{"x", ",", "y"}], "]"}], ",", "y"}], "]"}]}], ",", "y"}], 
      "]"}]}], ",", "x"}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"D", "[", 
  RowBox[{
   StyleBox[
    RowBox[{
     RowBox[{"f", "[", 
      RowBox[{"x", ",", "y"}], "]"}], "+", 
     RowBox[{
      RowBox[{"u", "[", 
       RowBox[{"x", ",", "y"}], "]"}], " ", 
      RowBox[{"\[Sigma]", "[", 
       RowBox[{"x", ",", "y"}], "]"}]}], "-", 
     RowBox[{"D", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"b", "[", 
         RowBox[{"x", ",", "y"}], "]"}], 
        RowBox[{"D", "[", 
         RowBox[{
          RowBox[{"u", "[", 
           RowBox[{"x", ",", "y"}], "]"}], ",", "y"}], "]"}]}], ",", "y"}], 
      "]"}]}],
    FontWeight->"Plain"], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "2"}], "}"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Fx", "->", 
   RowBox[{
    RowBox[{"f", "[", 
     RowBox[{"x", ",", "y"}], "]"}], "+", 
    RowBox[{
     RowBox[{"u", "[", 
      RowBox[{"x", ",", "y"}], "]"}], " ", 
     RowBox[{"\[Sigma]", "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "-", 
    RowBox[{
     RowBox[{"u", "[", 
      RowBox[{"x", ",", "y"}], "]"}], " ", 
     RowBox[{
      SuperscriptBox["b", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"0", ",", "1"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "-", 
    RowBox[{
     RowBox[{"b", "[", 
      RowBox[{"x", ",", "y"}], "]"}], " ", 
     FractionBox[
      RowBox[{"Uyph", "-", "Uymh"}], 
      RowBox[{"2", "hy"}]]}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Fxx", "->", 
    RowBox[{
     RowBox[{
      RowBox[{"-", 
       FractionBox[
        RowBox[{"Uyph", "-", 
         RowBox[{"2", 
          RowBox[{"u", "[", 
           RowBox[{"x", ",", "y"}], "]"}]}], "+", "Uymh"}], 
        SuperscriptBox["hy", "2"]]}], 
      RowBox[{
       SuperscriptBox["b", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"1", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}]}], "+", 
     RowBox[{
      SuperscriptBox["f", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"1", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}], "+", 
     RowBox[{
      RowBox[{"\[Sigma]", "[", 
       RowBox[{"x", ",", "y"}], "]"}], " ", 
      FractionBox[
       RowBox[{"Uxph", "-", "Uxmh"}], 
       RowBox[{"2", "hx"}]]}], "+", 
     RowBox[{
      RowBox[{"u", "[", 
       RowBox[{"x", ",", "y"}], "]"}], " ", 
      RowBox[{
       SuperscriptBox["\[Sigma]", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"1", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}]}], "-", 
     RowBox[{
      FractionBox[
       RowBox[{"Uyph", "-", "Uymh"}], 
       RowBox[{"2", "hy"}]], " ", 
      RowBox[{
       SuperscriptBox["b", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"1", ",", "1"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}]}], "-", 
     RowBox[{
      RowBox[{
       SuperscriptBox["b", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "1"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}], " ", 
      FractionBox["1", 
       RowBox[{"2", "hy"}]], 
      RowBox[{"(", 
       RowBox[{
        FractionBox[
         RowBox[{"Uxphyph", "-", "Uxmhyph"}], 
         RowBox[{"2", "hx"}]], "-", 
        FractionBox[
         RowBox[{"Uxphymh", "-", "Uxmhymh"}], 
         RowBox[{"2", "hx"}]]}], ")"}]}], "-", 
     RowBox[{
      RowBox[{"b", "[", 
       RowBox[{"x", ",", "y"}], "]"}], " ", 
      FractionBox["1", 
       RowBox[{"2", "hx"}]], 
      RowBox[{"(", 
       RowBox[{
        FractionBox[
         RowBox[{"Uxphyph", "-", 
          RowBox[{"2", "Uxph"}], "+", "Uxphymh"}], 
         SuperscriptBox["hy", "2"]], "-", 
        FractionBox[
         RowBox[{"Uxmhyph", "-", 
          RowBox[{"2", "Uxmh"}], "+", "Uxmhymh"}], 
         SuperscriptBox["hy", "2"]]}], ")"}]}]}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"F3x", "\[Rule]", 
  RowBox[{
   RowBox[{"2", 
    FractionBox[
     RowBox[{"Uxph", "-", "Uxmh"}], 
     RowBox[{"2", "hx"}]], " ", 
    RowBox[{
     SuperscriptBox["\[Sigma]", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"1", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "-", 
   RowBox[{"2", " ", 
    RowBox[{
     SuperscriptBox["b", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"1", ",", "1"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    FractionBox["1", 
     RowBox[{"2", "hy"}]], 
    RowBox[{"(", 
     RowBox[{
      FractionBox[
       RowBox[{"Uxphyph", "-", "Uxmhyph"}], 
       RowBox[{"2", "hx"}]], "-", 
      FractionBox[
       RowBox[{"Uxphymh", "-", "Uxmhymh"}], 
       RowBox[{"2", "hx"}]]}], ")"}]}], "-", 
   RowBox[{"2", " ", 
    RowBox[{
     SuperscriptBox["b", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"1", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    FractionBox["1", 
     RowBox[{"2", "hx"}]], 
    RowBox[{"(", 
     RowBox[{
      FractionBox[
       RowBox[{"Uxphyph", "-", 
        RowBox[{"2", "Uxph"}], "+", "Uxphymh"}], 
       SuperscriptBox["hy", "2"]], "-", 
      FractionBox[
       RowBox[{"Uxmhyph", "-", 
        RowBox[{"2", "Uxmh"}], "+", "Uxmhymh"}], 
       SuperscriptBox["hy", "2"]]}], ")"}]}], "-", 
   RowBox[{
    FractionBox[
     RowBox[{"Uyph", "-", 
      RowBox[{"2", 
       RowBox[{"u", "[", 
        RowBox[{"x", ",", "y"}], "]"}]}], "+", "Uymh"}], 
     SuperscriptBox["hy", "2"]], " ", 
    RowBox[{
     SuperscriptBox["b", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"2", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "+", 
   RowBox[{
    SuperscriptBox["f", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"2", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], "+", 
   RowBox[{
    RowBox[{"\[Sigma]", "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    FractionBox[
     RowBox[{"Uxph", "-", 
      RowBox[{"2", 
       RowBox[{"u", "[", 
        RowBox[{"x", ",", "y"}], "]"}]}], "+", "Uxmh"}], 
     SuperscriptBox["hx", "2"]]}], "+", 
   RowBox[{
    RowBox[{"u", "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["\[Sigma]", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"2", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "-", 
   RowBox[{
    FractionBox[
     RowBox[{"Uyph", "-", "Uymh"}], 
     RowBox[{"2", "hy"}]], " ", 
    RowBox[{
     SuperscriptBox["b", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"2", ",", "1"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "-", 
   RowBox[{
    RowBox[{
     SuperscriptBox["b", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"0", ",", "1"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    FractionBox["1", 
     RowBox[{"2", "hy"}]], 
    RowBox[{"(", 
     RowBox[{
      FractionBox[
       RowBox[{"Uxphyph", "-", 
        RowBox[{"2", "Uyph"}], "+", "Uxmhyph"}], 
       SuperscriptBox["hx", "2"]], "-", 
      FractionBox[
       RowBox[{"Uxphymh", "-", 
        RowBox[{"2", "Uymh"}], "+", "Uxmhymh"}], 
       SuperscriptBox["hx", "2"]]}], ")"}]}], "-", 
   RowBox[{
    RowBox[{"b", "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    FractionBox["1", 
     SuperscriptBox["hx", "2"]], 
    RowBox[{"(", 
     RowBox[{
      FractionBox[
       RowBox[{"Uxphyph", "-", 
        RowBox[{"2", "Uxph"}], "+", "Uxphymh"}], 
       SuperscriptBox["hy", "2"]], "-", 
      RowBox[{"2", 
       FractionBox[
        RowBox[{"Uyph", "-", 
         RowBox[{"2", 
          RowBox[{"u", "[", 
           RowBox[{"x", ",", "y"}], "]"}]}], "+", "Uymh"}], 
        SuperscriptBox["hy", "2"]]}], "+", 
      FractionBox[
       RowBox[{"Uxmhyph", "-", 
        RowBox[{"2", "Uxmh"}], "+", "Uxmhymh"}], 
       SuperscriptBox["hy", "2"]]}], ")"}]}]}]}]}], "Input",
 CellChangeTimes->{{3.6187037273762817`*^9, 3.618703775547598*^9}, {
   3.618703836751212*^9, 3.618703898335886*^9}, 3.618703939086989*^9, {
   3.618704157075284*^9, 3.618704184546213*^9}, {3.618704483529467*^9, 
   3.6187045986359386`*^9}, {3.618704651483819*^9, 3.61870467449548*^9}, {
   3.618704706373205*^9, 3.618704709739143*^9}, 3.618704761030871*^9, 
   3.618704804150339*^9, {3.618704938663849*^9, 3.618704973988388*^9}, 
   3.618705009893242*^9, {3.618705111459353*^9, 3.618705193079117*^9}, {
   3.6187052340311337`*^9, 3.618705237655892*^9}, {3.618705430217042*^9, 
   3.618705453191374*^9}, 3.618705486060678*^9, {3.6187055652247543`*^9, 
   3.618705567462092*^9}, {3.618707151506237*^9, 3.61870715445336*^9}, {
   3.618707254353874*^9, 3.618707255350622*^9}, {3.618707286217719*^9, 
   3.618707403144332*^9}, {3.618707447685946*^9, 3.6187074945666428`*^9}, 
   3.6187075580249023`*^9, {3.618707590556458*^9, 3.6187076074041157`*^9}, {
   3.618707662099944*^9, 3.6187077444224463`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"2", " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"1", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["\[Sigma]", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"1", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "-", 
  RowBox[{"2", " ", 
   RowBox[{
    SuperscriptBox["b", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"1", ",", "1"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"1", ",", "1"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "-", 
  RowBox[{"2", " ", 
   RowBox[{
    SuperscriptBox["b", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"1", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"1", ",", "2"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "-", 
  RowBox[{
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"0", ",", "2"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["b", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"2", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   SuperscriptBox["f", 
    TagBox[
     RowBox[{"(", 
      RowBox[{"2", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None], "[", 
   RowBox[{"x", ",", "y"}], "]"}], "+", 
  RowBox[{
   RowBox[{"\[Sigma]", "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"2", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   RowBox[{"u", "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["\[Sigma]", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"2", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "-", 
  RowBox[{
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"0", ",", "1"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["b", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"2", ",", "1"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "-", 
  RowBox[{
   RowBox[{
    SuperscriptBox["b", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"0", ",", "1"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"2", ",", "1"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "-", 
  RowBox[{
   RowBox[{"b", "[", 
    RowBox[{"x", ",", "y"}], "]"}], " ", 
   RowBox[{
    SuperscriptBox["u", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"2", ",", "2"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}]}]], "Output",
 CellChangeTimes->{
  3.618703731633975*^9, 3.618703776464212*^9, {3.618703856436899*^9, 
   3.618703869326921*^9}, 3.618703905264413*^9, 3.618703939598592*^9, 
   3.618704529608179*^9, 3.618704687701057*^9, {3.618705125217067*^9, 
   3.618705144787517*^9}, 3.61870548696887*^9, 3.618707166605565*^9, 
   3.6187072576866417`*^9, 3.618707451884459*^9}],

Cell[BoxData[
 RowBox[{"Fxx", "\[Rule]", 
  RowBox[{
   RowBox[{"-", 
    FractionBox[
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", 
         FractionBox[
          RowBox[{
           RowBox[{
            RowBox[{"-", "2"}], " ", "Uxmh"}], "+", "Uxmhymh", "+", 
           "Uxmhyph"}], 
          SuperscriptBox["hy", "2"]]}], "+", 
        FractionBox[
         RowBox[{
          RowBox[{
           RowBox[{"-", "2"}], " ", "Uxph"}], "+", "Uxphymh", "+", 
          "Uxphyph"}], 
         SuperscriptBox["hy", "2"]]}], ")"}], " ", 
      RowBox[{"b", "[", 
       RowBox[{"x", ",", "y"}], "]"}]}], 
     RowBox[{"2", " ", "hx"}]]}], "+", 
   FractionBox[
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "Uxmh"}], "+", "Uxph"}], ")"}], " ", 
     RowBox[{"\[Sigma]", "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], 
    RowBox[{"2", " ", "hx"}]], "-", 
   FractionBox[
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        FractionBox[
         RowBox[{
          RowBox[{"-", "Uxmhymh"}], "+", "Uxphymh"}], 
         RowBox[{"2", " ", "hx"}]]}], "+", 
       FractionBox[
        RowBox[{
         RowBox[{"-", "Uxmhyph"}], "+", "Uxphyph"}], 
        RowBox[{"2", " ", "hx"}]]}], ")"}], " ", 
     RowBox[{
      SuperscriptBox["b", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"0", ",", "1"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], 
    RowBox[{"2", " ", "hy"}]], "-", 
   FractionBox[
    RowBox[{
     RowBox[{"(", 
      RowBox[{"Uymh", "+", "Uyph", "-", 
       RowBox[{"2", " ", 
        RowBox[{"u", "[", 
         RowBox[{"x", ",", "y"}], "]"}]}]}], ")"}], " ", 
     RowBox[{
      SuperscriptBox["b", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"1", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], 
    SuperscriptBox["hy", "2"]], "+", 
   RowBox[{
    SuperscriptBox["f", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"1", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], "+", 
   RowBox[{
    RowBox[{"u", "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["\[Sigma]", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"1", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "-", 
   FractionBox[
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "Uymh"}], "+", "Uyph"}], ")"}], " ", 
     RowBox[{
      SuperscriptBox["b", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"1", ",", "1"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], 
    RowBox[{"2", " ", "hy"}]]}]}]], "Output",
 CellChangeTimes->{
  3.618703731633975*^9, 3.618703776464212*^9, {3.618703856436899*^9, 
   3.618703869326921*^9}, 3.618703905264413*^9, 3.618703939598592*^9, 
   3.618704529608179*^9, 3.618704687701057*^9, {3.618705125217067*^9, 
   3.618705144787517*^9}, 3.61870548696887*^9, 3.618707166605565*^9, 
   3.6187072576866417`*^9, 3.618707451895042*^9}],

Cell[BoxData[
 RowBox[{"F3x", "\[Rule]", 
  RowBox[{
   RowBox[{"-", 
    FractionBox[
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", 
         FractionBox[
          RowBox[{"Uxmhymh", "+", "Uxphymh", "-", 
           RowBox[{"2", " ", "Uymh"}]}], 
          SuperscriptBox["hx", "2"]]}], "+", 
        FractionBox[
         RowBox[{"Uxmhyph", "+", "Uxphyph", "-", 
          RowBox[{"2", " ", "Uyph"}]}], 
         SuperscriptBox["hx", "2"]]}], ")"}], " ", 
      RowBox[{"b", "[", 
       RowBox[{"x", ",", "y"}], "]"}]}], 
     RowBox[{"2", " ", "hy"}]]}], "+", 
   FractionBox[
    RowBox[{
     RowBox[{"(", 
      RowBox[{"Uxmh", "+", "Uxph", "-", 
       RowBox[{"2", " ", 
        RowBox[{"u", "[", 
         RowBox[{"x", ",", "y"}], "]"}]}]}], ")"}], " ", 
     RowBox[{"\[Sigma]", "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], 
    SuperscriptBox["hx", "2"]], "-", 
   FractionBox[
    RowBox[{
     RowBox[{"(", 
      RowBox[{"Uxmh", "+", "Uxph", "-", 
       RowBox[{"2", " ", 
        RowBox[{"u", "[", 
         RowBox[{"x", ",", "y"}], "]"}]}]}], ")"}], " ", 
     RowBox[{
      SuperscriptBox["b", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"0", ",", "1"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], 
    SuperscriptBox["hx", "2"]], "-", 
   FractionBox[
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        FractionBox[
         RowBox[{
          RowBox[{"-", "Uxmhymh"}], "+", "Uxphymh"}], 
         RowBox[{"2", " ", "hx"}]]}], "+", 
       FractionBox[
        RowBox[{
         RowBox[{"-", "Uxmhyph"}], "+", "Uxphyph"}], 
        RowBox[{"2", " ", "hx"}]]}], ")"}], " ", 
     RowBox[{
      SuperscriptBox["b", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"1", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "hy"], "+", 
   FractionBox[
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "Uxmh"}], "+", "Uxph"}], ")"}], " ", 
     RowBox[{
      SuperscriptBox["\[Sigma]", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"1", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "hx"], "-", 
   FractionBox[
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "Uxmh"}], "+", "Uxph"}], ")"}], " ", 
     RowBox[{
      SuperscriptBox["b", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"1", ",", "1"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "hx"], "-", 
   FractionBox[
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "Uymh"}], "+", "Uyph"}], ")"}], " ", 
     RowBox[{
      SuperscriptBox["b", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"2", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], 
    RowBox[{"2", " ", "hy"}]], "+", 
   RowBox[{
    SuperscriptBox["f", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"2", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}], "+", 
   RowBox[{
    RowBox[{"u", "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["\[Sigma]", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"2", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], "-", 
   RowBox[{
    RowBox[{"u", "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["b", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"2", ",", "1"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}]}]}]], "Output",
 CellChangeTimes->{
  3.618703731633975*^9, 3.618703776464212*^9, {3.618703856436899*^9, 
   3.618703869326921*^9}, 3.618703905264413*^9, 3.618703939598592*^9, 
   3.618704529608179*^9, 3.618704687701057*^9, {3.618705125217067*^9, 
   3.618705144787517*^9}, 3.61870548696887*^9, 3.618707166605565*^9, 
   3.6187072576866417`*^9, 3.618707451907398*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Collect", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       SuperscriptBox["a", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"1", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"x", ",", "y"}], "]"}], " ", 
      FractionBox[
       RowBox[{"Uxph", "-", "Uxmh"}], 
       RowBox[{"2", "hx"}]]}], "+", 
     RowBox[{
      RowBox[{"a", "[", 
       RowBox[{"x", ",", "y"}], "]"}], " ", 
      FractionBox[
       RowBox[{"Uxph", "-", 
        RowBox[{"2", 
         RowBox[{"u", "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "+", "Uxmh"}], 
       SuperscriptBox["hx", "2"]]}], "-", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{
         FractionBox[
          SuperscriptBox["hx", "2"], "12"], 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", " ", 
            RowBox[{
             SuperscriptBox["a", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"x", ",", "y"}], "]"}], " ", 
            RowBox[{"(", 
             RowBox[{
              FractionBox["Fxx", 
               RowBox[{"a", "[", 
                RowBox[{"x", ",", "y"}], "]"}]], "-", 
              FractionBox[
               RowBox[{"2", " ", "Fx", " ", 
                RowBox[{
                 SuperscriptBox["a", 
                  TagBox[
                   RowBox[{"(", 
                    RowBox[{"1", ",", "0"}], ")"}],
                   Derivative],
                  MultilineFunction->None], "[", 
                 RowBox[{"x", ",", "y"}], "]"}]}], 
               SuperscriptBox[
                RowBox[{"a", "[", 
                 RowBox[{"x", ",", "y"}], "]"}], "2"]], "+", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{
                 FractionBox[
                  RowBox[{"2", " ", 
                   SuperscriptBox[
                    RowBox[{
                    SuperscriptBox["a", 
                    TagBox[
                    RowBox[{"(", 
                    RowBox[{"1", ",", "0"}], ")"}],
                    Derivative],
                    MultilineFunction->None], "[", 
                    RowBox[{"x", ",", "y"}], "]"}], "2"], " "}], 
                  SuperscriptBox[
                   RowBox[{"a", "[", 
                    RowBox[{"x", ",", "y"}], "]"}], "2"]], "-", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["a", 
                    TagBox[
                    RowBox[{"(", 
                    RowBox[{"2", ",", "0"}], ")"}],
                    Derivative],
                    MultilineFunction->None], "[", 
                   RowBox[{"x", ",", "y"}], "]"}], 
                  RowBox[{"a", "[", 
                   RowBox[{"x", ",", "y"}], "]"}]]}], ")"}], 
               FractionBox[
                RowBox[{"Uxph", "-", "Uxmh"}], 
                RowBox[{"2", "hx"}]]}]}], ")"}]}], "+", 
           RowBox[{
            RowBox[{"a", "[", 
             RowBox[{"x", ",", "y"}], "]"}], " ", 
            RowBox[{"(", 
             RowBox[{
              FractionBox["F3x", 
               RowBox[{"a", "[", 
                RowBox[{"x", ",", "y"}], "]"}]], "-", 
              FractionBox[
               RowBox[{"3", " ", "Fxx", " ", 
                RowBox[{
                 SuperscriptBox["a", 
                  TagBox[
                   RowBox[{"(", 
                    RowBox[{"1", ",", "0"}], ")"}],
                   Derivative],
                  MultilineFunction->None], "[", 
                 RowBox[{"x", ",", "y"}], "]"}]}], 
               SuperscriptBox[
                RowBox[{"a", "[", 
                 RowBox[{"x", ",", "y"}], "]"}], "2"]], "+", 
              FractionBox[
               RowBox[{"6", " ", "Fx", " ", 
                SuperscriptBox[
                 RowBox[{
                  SuperscriptBox["a", 
                   TagBox[
                    RowBox[{"(", 
                    RowBox[{"1", ",", "0"}], ")"}],
                    Derivative],
                   MultilineFunction->None], "[", 
                  RowBox[{"x", ",", "y"}], "]"}], "2"]}], 
               SuperscriptBox[
                RowBox[{"a", "[", 
                 RowBox[{"x", ",", "y"}], "]"}], "3"]], "-", 
              FractionBox[
               RowBox[{"3", " ", "Fx", " ", 
                RowBox[{
                 SuperscriptBox["a", 
                  TagBox[
                   RowBox[{"(", 
                    RowBox[{"2", ",", "0"}], ")"}],
                   Derivative],
                  MultilineFunction->None], "[", 
                 RowBox[{"x", ",", "y"}], "]"}]}], 
               SuperscriptBox[
                RowBox[{"a", "[", 
                 RowBox[{"x", ",", "y"}], "]"}], "2"]], "+", 
              RowBox[{
               FractionBox[
                RowBox[{"Uxph", "-", "Uxmh"}], 
                RowBox[{"2", "hx"}]], 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", 
                  FractionBox[
                   RowBox[{"6", " ", 
                    SuperscriptBox[
                    RowBox[{
                    SuperscriptBox["a", 
                    TagBox[
                    RowBox[{"(", 
                    RowBox[{"1", ",", "0"}], ")"}],
                    Derivative],
                    MultilineFunction->None], "[", 
                    RowBox[{"x", ",", "y"}], "]"}], "3"]}], 
                   SuperscriptBox[
                    RowBox[{"a", "[", 
                    RowBox[{"x", ",", "y"}], "]"}], "3"]]}], "+", 
                 FractionBox[
                  RowBox[{"6", " ", 
                   RowBox[{
                    SuperscriptBox["a", 
                    TagBox[
                    RowBox[{"(", 
                    RowBox[{"1", ",", "0"}], ")"}],
                    Derivative],
                    MultilineFunction->None], "[", 
                    RowBox[{"x", ",", "y"}], "]"}], " ", 
                   RowBox[{
                    SuperscriptBox["a", 
                    TagBox[
                    RowBox[{"(", 
                    RowBox[{"2", ",", "0"}], ")"}],
                    Derivative],
                    MultilineFunction->None], "[", 
                    RowBox[{"x", ",", "y"}], "]"}]}], 
                  SuperscriptBox[
                   RowBox[{"a", "[", 
                    RowBox[{"x", ",", "y"}], "]"}], "2"]], "-", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["a", 
                    TagBox[
                    RowBox[{"(", 
                    RowBox[{"3", ",", "0"}], ")"}],
                    Derivative],
                    MultilineFunction->None], "[", 
                   RowBox[{"x", ",", "y"}], "]"}], 
                  RowBox[{"a", "[", 
                   RowBox[{"x", ",", "y"}], "]"}]]}], ")"}]}]}], ")"}]}]}], 
          ")"}]}], "/.", "U3x"}], "/.", "U4x"}], ")"}]}], "/.", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Fx", "->", 
       RowBox[{
        RowBox[{"f", "[", 
         RowBox[{"x", ",", "y"}], "]"}], "+", 
        RowBox[{
         RowBox[{"u", "[", 
          RowBox[{"x", ",", "y"}], "]"}], " ", 
         RowBox[{"\[Sigma]", "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "-", 
        RowBox[{
         RowBox[{"u", "[", 
          RowBox[{"x", ",", "y"}], "]"}], " ", 
         RowBox[{
          SuperscriptBox["b", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"0", ",", "1"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "-", 
        RowBox[{
         RowBox[{"b", "[", 
          RowBox[{"x", ",", "y"}], "]"}], " ", 
         FractionBox[
          RowBox[{"Uyph", "-", "Uymh"}], 
          RowBox[{"2", "hy"}]]}]}]}], ",", 
      RowBox[{"Fxx", "->", 
       RowBox[{
        RowBox[{
         RowBox[{"-", 
          FractionBox[
           RowBox[{"Uyph", "-", 
            RowBox[{"2", 
             RowBox[{"u", "[", 
              RowBox[{"x", ",", "y"}], "]"}]}], "+", "Uymh"}], 
           SuperscriptBox["hy", "2"]]}], 
         RowBox[{
          SuperscriptBox["b", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"1", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "+", 
        RowBox[{
         SuperscriptBox["f", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"1", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}], "+", 
        RowBox[{
         RowBox[{"\[Sigma]", "[", 
          RowBox[{"x", ",", "y"}], "]"}], " ", 
         FractionBox[
          RowBox[{"Uxph", "-", "Uxmh"}], 
          RowBox[{"2", "hx"}]]}], "+", 
        RowBox[{
         RowBox[{"u", "[", 
          RowBox[{"x", ",", "y"}], "]"}], " ", 
         RowBox[{
          SuperscriptBox["\[Sigma]", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"1", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "-", 
        RowBox[{
         FractionBox[
          RowBox[{"Uyph", "-", "Uymh"}], 
          RowBox[{"2", "hy"}]], " ", 
         RowBox[{
          SuperscriptBox["b", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"1", ",", "1"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "-", 
        RowBox[{
         RowBox[{
          SuperscriptBox["b", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"0", ",", "1"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}], " ", 
         FractionBox["1", 
          RowBox[{"2", "hy"}]], 
         RowBox[{"(", 
          RowBox[{
           FractionBox[
            RowBox[{"Uxphyph", "-", "Uxmhyph"}], 
            RowBox[{"2", "hx"}]], "-", 
           FractionBox[
            RowBox[{"Uxphymh", "-", "Uxmhymh"}], 
            RowBox[{"2", "hx"}]]}], ")"}]}], "-", 
        RowBox[{
         RowBox[{"b", "[", 
          RowBox[{"x", ",", "y"}], "]"}], " ", 
         FractionBox["1", 
          RowBox[{"2", "hx"}]], 
         RowBox[{"(", 
          RowBox[{
           FractionBox[
            RowBox[{"Uxphyph", "-", 
             RowBox[{"2", "Uxph"}], "+", "Uxphymh"}], 
            SuperscriptBox["hy", "2"]], "-", 
           FractionBox[
            RowBox[{"Uxmhyph", "-", 
             RowBox[{"2", "Uxmh"}], "+", "Uxmhymh"}], 
            SuperscriptBox["hy", "2"]]}], ")"}]}]}]}], ",", 
      RowBox[{"F3x", "\[Rule]", 
       RowBox[{
        RowBox[{"2", 
         FractionBox[
          RowBox[{"Uxph", "-", "Uxmh"}], 
          RowBox[{"2", "hx"}]], " ", 
         RowBox[{
          SuperscriptBox["\[Sigma]", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"1", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "-", 
        RowBox[{"2", " ", 
         RowBox[{
          SuperscriptBox["b", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"1", ",", "1"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}], " ", 
         FractionBox["1", 
          RowBox[{"2", "hy"}]], 
         RowBox[{"(", 
          RowBox[{
           FractionBox[
            RowBox[{"Uxphyph", "-", "Uxmhyph"}], 
            RowBox[{"2", "hx"}]], "-", 
           FractionBox[
            RowBox[{"Uxphymh", "-", "Uxmhymh"}], 
            RowBox[{"2", "hx"}]]}], ")"}]}], "-", 
        RowBox[{"2", " ", 
         RowBox[{
          SuperscriptBox["b", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"1", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}], " ", 
         FractionBox["1", 
          RowBox[{"2", "hx"}]], 
         RowBox[{"(", 
          RowBox[{
           FractionBox[
            RowBox[{"Uxphyph", "-", 
             RowBox[{"2", "Uxph"}], "+", "Uxphymh"}], 
            SuperscriptBox["hy", "2"]], "-", 
           FractionBox[
            RowBox[{"Uxmhyph", "-", 
             RowBox[{"2", "Uxmh"}], "+", "Uxmhymh"}], 
            SuperscriptBox["hy", "2"]]}], ")"}]}], "-", 
        RowBox[{
         FractionBox[
          RowBox[{"Uyph", "-", 
           RowBox[{"2", 
            RowBox[{"u", "[", 
             RowBox[{"x", ",", "y"}], "]"}]}], "+", "Uymh"}], 
          SuperscriptBox["hy", "2"]], " ", 
         RowBox[{
          SuperscriptBox["b", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"2", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "+", 
        RowBox[{
         SuperscriptBox["f", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"2", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}], "+", 
        RowBox[{
         RowBox[{"\[Sigma]", "[", 
          RowBox[{"x", ",", "y"}], "]"}], " ", 
         FractionBox[
          RowBox[{"Uxph", "-", 
           RowBox[{"2", 
            RowBox[{"u", "[", 
             RowBox[{"x", ",", "y"}], "]"}]}], "+", "Uxmh"}], 
          SuperscriptBox["hx", "2"]]}], "+", 
        RowBox[{
         RowBox[{"u", "[", 
          RowBox[{"x", ",", "y"}], "]"}], " ", 
         RowBox[{
          SuperscriptBox["\[Sigma]", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"2", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "-", 
        RowBox[{
         FractionBox[
          RowBox[{"Uyph", "-", "Uymh"}], 
          RowBox[{"2", "hy"}]], " ", 
         RowBox[{
          SuperscriptBox["b", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"2", ",", "1"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], "-", 
        RowBox[{
         RowBox[{
          SuperscriptBox["b", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"0", ",", "1"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}], " ", 
         FractionBox["1", 
          RowBox[{"2", "hy"}]], 
         RowBox[{"(", 
          RowBox[{
           FractionBox[
            RowBox[{"Uxphyph", "-", 
             RowBox[{"2", "Uyph"}], "+", "Uxmhyph"}], 
            SuperscriptBox["hx", "2"]], "-", 
           FractionBox[
            RowBox[{"Uxphymh", "-", 
             RowBox[{"2", "Uymh"}], "+", "Uxmhymh"}], 
            SuperscriptBox["hx", "2"]]}], ")"}]}], "-", 
        RowBox[{
         RowBox[{"b", "[", 
          RowBox[{"x", ",", "y"}], "]"}], " ", 
         FractionBox["1", 
          SuperscriptBox["hx", "2"]], 
         RowBox[{"(", 
          RowBox[{
           FractionBox[
            RowBox[{"Uxphyph", "-", 
             RowBox[{"2", "Uxph"}], "+", "Uxphymh"}], 
            SuperscriptBox["hy", "2"]], "-", 
           RowBox[{"2", 
            FractionBox[
             RowBox[{"Uyph", "-", 
              RowBox[{"2", 
               RowBox[{"u", "[", 
                RowBox[{"x", ",", "y"}], "]"}]}], "+", "Uymh"}], 
             SuperscriptBox["hy", "2"]]}], "+", 
           FractionBox[
            RowBox[{"Uxmhyph", "-", 
             RowBox[{"2", "Uxmh"}], "+", "Uxmhymh"}], 
            SuperscriptBox["hy", "2"]]}], ")"}]}]}]}]}], "}"}]}], ",", 
   RowBox[{"{", 
    RowBox[{
    "Uxph", ",", "Uxmh", ",", "Uyph", ",", "Uymh", ",", "Uxphyph", ",", 
     "Uxmhymh", ",", "Uxmhyph", ",", "Uxphymh", ",", 
     RowBox[{"u", "[", 
      RowBox[{"x", ",", "y"}], "]"}], ",", 
     RowBox[{"f", "[", 
      RowBox[{"x", ",", "y"}], "]"}], ",", 
     RowBox[{
      SuperscriptBox["f", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"1", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}], ",", 
     RowBox[{
      SuperscriptBox["f", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"2", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}]}], "}"}], ",", "Simplify"}], 
  "]"}]], "Input",
 CellChangeTimes->{
  3.618693657662591*^9, {3.6186937036386433`*^9, 3.618693711342464*^9}, {
   3.618694048871994*^9, 3.618694057660988*^9}, {3.618694090778376*^9, 
   3.6186941150835648`*^9}, {3.618694269291184*^9, 3.618694317639915*^9}, {
   3.618694376932458*^9, 3.618694378387892*^9}, {3.618695850898731*^9, 
   3.618695873773645*^9}, {3.618696213744803*^9, 3.61869622059188*^9}, {
   3.6186962545752697`*^9, 3.61869631165501*^9}, 3.6187032459938393`*^9, {
   3.618703425196734*^9, 3.618703462615806*^9}, {3.618703968298092*^9, 
   3.618703972374215*^9}, {3.618704128984399*^9, 3.6187041382958393`*^9}, {
   3.618704286125495*^9, 3.6187042922740183`*^9}, {3.618704328749371*^9, 
   3.618704329264292*^9}, {3.618707773449829*^9, 3.618707813359642*^9}, {
   3.6187082229687443`*^9, 3.6187082760611763`*^9}, {3.6187083558361197`*^9, 
   3.618708370770405*^9}}],

Cell[BoxData[
 RowBox[{
  FractionBox[
   RowBox[{
    SuperscriptBox["hx", "2"], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"1", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["f", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"1", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], 
   RowBox[{"12", " ", 
    RowBox[{"a", "[", 
     RowBox[{"x", ",", "y"}], "]"}]}]], "+", 
  RowBox[{
   FractionBox["1", 
    RowBox[{"48", " ", 
     SuperscriptBox["hy", "2"], " ", 
     RowBox[{"a", "[", 
      RowBox[{"x", ",", "y"}], "]"}]}]], 
   RowBox[{"Uxphymh", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"hx", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "2"}], " ", 
          RowBox[{"b", "[", 
           RowBox[{"x", ",", "y"}], "]"}]}], "+", 
         RowBox[{"hy", " ", 
          RowBox[{
           SuperscriptBox["b", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"x", ",", "y"}], "]"}]}]}], ")"}], " ", 
       RowBox[{
        SuperscriptBox["a", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"1", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"x", ",", "y"}], "]"}]}], "+", 
      RowBox[{
       RowBox[{"a", "[", 
        RowBox[{"x", ",", "y"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"4", " ", 
          RowBox[{"b", "[", 
           RowBox[{"x", ",", "y"}], "]"}]}], "-", 
         RowBox[{"2", " ", "hy", " ", 
          RowBox[{
           SuperscriptBox["b", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"x", ",", "y"}], "]"}]}], "+", 
         RowBox[{"4", " ", "hx", " ", 
          RowBox[{
           SuperscriptBox["b", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"x", ",", "y"}], "]"}]}], "-", 
         RowBox[{"2", " ", "hx", " ", "hy", " ", 
          RowBox[{
           SuperscriptBox["b", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"x", ",", "y"}], "]"}]}]}], ")"}]}]}], ")"}]}]}], "+", 
  RowBox[{
   FractionBox["1", 
    RowBox[{"48", " ", 
     SuperscriptBox["hy", "2"], " ", 
     RowBox[{"a", "[", 
      RowBox[{"x", ",", "y"}], "]"}]}]], 
   RowBox[{"Uxmhyph", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"hx", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", " ", 
          RowBox[{"b", "[", 
           RowBox[{"x", ",", "y"}], "]"}]}], "+", 
         RowBox[{"hy", " ", 
          RowBox[{
           SuperscriptBox["b", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"x", ",", "y"}], "]"}]}]}], ")"}], " ", 
       RowBox[{
        SuperscriptBox["a", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"1", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"x", ",", "y"}], "]"}]}], "+", 
      RowBox[{"2", " ", 
       RowBox[{"a", "[", 
        RowBox[{"x", ",", "y"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", " ", 
          RowBox[{"b", "[", 
           RowBox[{"x", ",", "y"}], "]"}]}], "+", 
         RowBox[{"hy", " ", 
          RowBox[{
           SuperscriptBox["b", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"x", ",", "y"}], "]"}]}], "-", 
         RowBox[{"2", " ", "hx", " ", 
          RowBox[{
           SuperscriptBox["b", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"x", ",", "y"}], "]"}]}], "-", 
         RowBox[{"hx", " ", "hy", " ", 
          RowBox[{
           SuperscriptBox["b", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"x", ",", "y"}], "]"}]}]}], ")"}]}]}], ")"}]}]}], "+", 
  RowBox[{
   FractionBox["1", 
    RowBox[{"48", " ", 
     SuperscriptBox["hy", "2"], " ", 
     RowBox[{"a", "[", 
      RowBox[{"x", ",", "y"}], "]"}]}]], 
   RowBox[{"Uxmhymh", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"hx", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", " ", 
          RowBox[{"b", "[", 
           RowBox[{"x", ",", "y"}], "]"}]}], "-", 
         RowBox[{"hy", " ", 
          RowBox[{
           SuperscriptBox["b", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"x", ",", "y"}], "]"}]}]}], ")"}], " ", 
       RowBox[{
        SuperscriptBox["a", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"1", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"x", ",", "y"}], "]"}]}], "+", 
      RowBox[{"2", " ", 
       RowBox[{"a", "[", 
        RowBox[{"x", ",", "y"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", " ", 
          RowBox[{"b", "[", 
           RowBox[{"x", ",", "y"}], "]"}]}], "-", 
         RowBox[{"hy", " ", 
          RowBox[{
           SuperscriptBox["b", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"x", ",", "y"}], "]"}]}], "-", 
         RowBox[{"2", " ", "hx", " ", 
          RowBox[{
           SuperscriptBox["b", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"x", ",", "y"}], "]"}]}], "+", 
         RowBox[{"hx", " ", "hy", " ", 
          RowBox[{
           SuperscriptBox["b", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"x", ",", "y"}], "]"}]}]}], ")"}]}]}], ")"}]}]}], "+", 
  RowBox[{
   FractionBox["1", 
    RowBox[{"48", " ", 
     SuperscriptBox["hy", "2"], " ", 
     RowBox[{"a", "[", 
      RowBox[{"x", ",", "y"}], "]"}]}]], 
   RowBox[{"Uxphyph", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"-", "hx"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", " ", 
          RowBox[{"b", "[", 
           RowBox[{"x", ",", "y"}], "]"}]}], "+", 
         RowBox[{"hy", " ", 
          RowBox[{
           SuperscriptBox["b", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"x", ",", "y"}], "]"}]}]}], ")"}], " ", 
       RowBox[{
        SuperscriptBox["a", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"1", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"x", ",", "y"}], "]"}]}], "+", 
      RowBox[{"2", " ", 
       RowBox[{"a", "[", 
        RowBox[{"x", ",", "y"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", " ", 
          RowBox[{"b", "[", 
           RowBox[{"x", ",", "y"}], "]"}]}], "+", 
         RowBox[{"hy", " ", 
          RowBox[{
           SuperscriptBox["b", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"x", ",", "y"}], "]"}]}], "+", 
         RowBox[{"2", " ", "hx", " ", 
          RowBox[{
           SuperscriptBox["b", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"x", ",", "y"}], "]"}]}], "+", 
         RowBox[{"hx", " ", "hy", " ", 
          RowBox[{
           SuperscriptBox["b", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"x", ",", "y"}], "]"}]}]}], ")"}]}]}], ")"}]}]}], "+", 
  FractionBox[
   RowBox[{
    SuperscriptBox["hx", "2"], " ", 
    RowBox[{"f", "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"-", "2"}], " ", 
       SuperscriptBox[
        RowBox[{
         SuperscriptBox["a", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"1", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}], "2"]}], "+", 
      RowBox[{"3", " ", 
       RowBox[{"a", "[", 
        RowBox[{"x", ",", "y"}], "]"}], " ", 
       RowBox[{
        SuperscriptBox["a", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"2", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"x", ",", "y"}], "]"}]}]}], ")"}]}], 
   RowBox[{"12", " ", 
    SuperscriptBox[
     RowBox[{"a", "[", 
      RowBox[{"x", ",", "y"}], "]"}], "2"]}]], "-", 
  RowBox[{
   FractionBox["1", "12"], " ", 
   SuperscriptBox["hx", "2"], " ", 
   RowBox[{
    SuperscriptBox["f", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"2", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["1", 
    RowBox[{"12", " ", 
     SuperscriptBox["hx", "2"], " ", 
     SuperscriptBox["hy", "2"], " ", 
     SuperscriptBox[
      RowBox[{"a", "[", 
       RowBox[{"x", ",", "y"}], "]"}], "2"]}]], 
   RowBox[{
    RowBox[{"u", "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"-", "24"}], " ", 
       SuperscriptBox["hy", "2"], " ", 
       SuperscriptBox[
        RowBox[{"a", "[", 
         RowBox[{"x", ",", "y"}], "]"}], "3"]}], "+", 
      RowBox[{"2", " ", 
       SuperscriptBox["hx", "4"], " ", 
       SuperscriptBox["hy", "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", 
          RowBox[{"\[Sigma]", "[", 
           RowBox[{"x", ",", "y"}], "]"}]}], "+", 
         RowBox[{
          SuperscriptBox["b", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"0", ",", "1"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"x", ",", "y"}], "]"}]}], ")"}], " ", 
       SuperscriptBox[
        RowBox[{
         SuperscriptBox["a", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"1", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}], "2"]}], "+", 
      RowBox[{
       SuperscriptBox["hx", "4"], " ", 
       RowBox[{"a", "[", 
        RowBox[{"x", ",", "y"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{
           SuperscriptBox["a", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"x", ",", "y"}], "]"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", " ", 
             RowBox[{
              SuperscriptBox["b", 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"1", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"x", ",", "y"}], "]"}]}], "+", 
            RowBox[{
             SuperscriptBox["hy", "2"], " ", 
             RowBox[{
              SuperscriptBox["\[Sigma]", 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"1", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"x", ",", "y"}], "]"}]}]}], ")"}]}], "+", 
         RowBox[{"3", " ", 
          SuperscriptBox["hy", "2"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"\[Sigma]", "[", 
             RowBox[{"x", ",", "y"}], "]"}], "-", 
            RowBox[{
             SuperscriptBox["b", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"x", ",", "y"}], "]"}]}], ")"}], " ", 
          RowBox[{
           SuperscriptBox["a", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"2", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"x", ",", "y"}], "]"}]}]}], ")"}]}], "+", 
      RowBox[{
       SuperscriptBox["hx", "2"], " ", 
       SuperscriptBox[
        RowBox[{"a", "[", 
         RowBox[{"x", ",", "y"}], "]"}], "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"4", " ", 
          RowBox[{"b", "[", 
           RowBox[{"x", ",", "y"}], "]"}]}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox["hy", "2"], " ", 
          RowBox[{"\[Sigma]", "[", 
           RowBox[{"x", ",", "y"}], "]"}]}], "-", 
         RowBox[{
          SuperscriptBox["hx", "2"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", " ", 
             RowBox[{
              SuperscriptBox["b", 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"2", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"x", ",", "y"}], "]"}]}], "+", 
            RowBox[{
             SuperscriptBox["hy", "2"], " ", 
             RowBox[{
              SuperscriptBox["\[Sigma]", 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"2", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"x", ",", "y"}], "]"}]}]}], ")"}]}]}], ")"}]}]}], 
     ")"}]}]}], "+", 
  RowBox[{
   FractionBox["1", 
    RowBox[{"24", " ", 
     SuperscriptBox["hy", "2"], " ", 
     SuperscriptBox[
      RowBox[{"a", "[", 
       RowBox[{"x", ",", "y"}], "]"}], "2"]}]], 
   RowBox[{"Uymh", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"-", "2"}], " ", 
       SuperscriptBox["hx", "2"], " ", "hy", " ", 
       RowBox[{"b", "[", 
        RowBox[{"x", ",", "y"}], "]"}], " ", 
       SuperscriptBox[
        RowBox[{
         SuperscriptBox["a", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"1", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}], "2"]}], "+", 
      RowBox[{
       SuperscriptBox["hx", "2"], " ", 
       RowBox[{"a", "[", 
        RowBox[{"x", ",", "y"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{
           SuperscriptBox["a", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"x", ",", "y"}], "]"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "2"}], " ", 
             RowBox[{
              SuperscriptBox["b", 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"1", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"x", ",", "y"}], "]"}]}], "+", 
            RowBox[{"hy", " ", 
             RowBox[{
              SuperscriptBox["b", 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"1", ",", "1"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"x", ",", "y"}], "]"}]}]}], ")"}]}], "+", 
         RowBox[{"3", " ", "hy", " ", 
          RowBox[{"b", "[", 
           RowBox[{"x", ",", "y"}], "]"}], " ", 
          RowBox[{
           SuperscriptBox["a", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"2", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"x", ",", "y"}], "]"}]}]}], ")"}]}], "+", 
      RowBox[{
       SuperscriptBox[
        RowBox[{"a", "[", 
         RowBox[{"x", ",", "y"}], "]"}], "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "4"}], " ", 
          RowBox[{"b", "[", 
           RowBox[{"x", ",", "y"}], "]"}]}], "+", 
         RowBox[{"2", " ", "hy", " ", 
          RowBox[{
           SuperscriptBox["b", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"x", ",", "y"}], "]"}]}], "+", 
         RowBox[{
          SuperscriptBox["hx", "2"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", " ", 
             RowBox[{
              SuperscriptBox["b", 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"2", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"x", ",", "y"}], "]"}]}], "-", 
            RowBox[{"hy", " ", 
             RowBox[{
              SuperscriptBox["b", 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"2", ",", "1"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"x", ",", "y"}], "]"}]}]}], ")"}]}]}], ")"}]}]}], 
     ")"}]}]}], "+", 
  RowBox[{
   FractionBox["1", 
    RowBox[{"24", " ", 
     SuperscriptBox["hy", "2"], " ", 
     SuperscriptBox[
      RowBox[{"a", "[", 
       RowBox[{"x", ",", "y"}], "]"}], "2"]}]], 
   RowBox[{"Uyph", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"2", " ", 
       SuperscriptBox["hx", "2"], " ", "hy", " ", 
       RowBox[{"b", "[", 
        RowBox[{"x", ",", "y"}], "]"}], " ", 
       SuperscriptBox[
        RowBox[{
         SuperscriptBox["a", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"1", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}], "2"]}], "-", 
      RowBox[{
       SuperscriptBox["hx", "2"], " ", 
       RowBox[{"a", "[", 
        RowBox[{"x", ",", "y"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{
           SuperscriptBox["a", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"x", ",", "y"}], "]"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", " ", 
             RowBox[{
              SuperscriptBox["b", 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"1", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"x", ",", "y"}], "]"}]}], "+", 
            RowBox[{"hy", " ", 
             RowBox[{
              SuperscriptBox["b", 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"1", ",", "1"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"x", ",", "y"}], "]"}]}]}], ")"}]}], "+", 
         RowBox[{"3", " ", "hy", " ", 
          RowBox[{"b", "[", 
           RowBox[{"x", ",", "y"}], "]"}], " ", 
          RowBox[{
           SuperscriptBox["a", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"2", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"x", ",", "y"}], "]"}]}]}], ")"}]}], "+", 
      RowBox[{
       SuperscriptBox[
        RowBox[{"a", "[", 
         RowBox[{"x", ",", "y"}], "]"}], "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "4"}], " ", 
          RowBox[{"b", "[", 
           RowBox[{"x", ",", "y"}], "]"}]}], "-", 
         RowBox[{"2", " ", "hy", " ", 
          RowBox[{
           SuperscriptBox["b", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"x", ",", "y"}], "]"}]}], "+", 
         RowBox[{
          SuperscriptBox["hx", "2"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", " ", 
             RowBox[{
              SuperscriptBox["b", 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"2", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"x", ",", "y"}], "]"}]}], "+", 
            RowBox[{"hy", " ", 
             RowBox[{
              SuperscriptBox["b", 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"2", ",", "1"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"x", ",", "y"}], "]"}]}]}], ")"}]}]}], ")"}]}]}], 
     ")"}]}]}], "+", 
  RowBox[{
   FractionBox["1", 
    RowBox[{"24", " ", 
     SuperscriptBox["hx", "2"], " ", 
     SuperscriptBox["hy", "2"], " ", 
     SuperscriptBox[
      RowBox[{"a", "[", 
       RowBox[{"x", ",", "y"}], "]"}], "2"]}]], 
   RowBox[{"Uxmh", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"24", " ", 
       SuperscriptBox["hy", "2"], " ", 
       SuperscriptBox[
        RowBox[{"a", "[", 
         RowBox[{"x", ",", "y"}], "]"}], "3"]}], "-", 
      RowBox[{"2", " ", 
       SuperscriptBox["hx", "3"], " ", 
       SuperscriptBox["hy", "2"], " ", 
       SuperscriptBox[
        RowBox[{
         SuperscriptBox["a", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"1", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}], "3"]}], "-", 
      RowBox[{
       SuperscriptBox["hx", "3"], " ", 
       RowBox[{"a", "[", 
        RowBox[{"x", ",", "y"}], "]"}], " ", 
       RowBox[{
        SuperscriptBox["a", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"1", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"x", ",", "y"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", " ", 
          RowBox[{"b", "[", 
           RowBox[{"x", ",", "y"}], "]"}]}], "+", 
         RowBox[{
          SuperscriptBox["hy", "2"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"\[Sigma]", "[", 
             RowBox[{"x", ",", "y"}], "]"}], "-", 
            RowBox[{"4", " ", 
             RowBox[{
              SuperscriptBox["a", 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"2", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"x", ",", "y"}], "]"}]}]}], ")"}]}]}], ")"}]}], "+", 
      RowBox[{"hx", " ", 
       SuperscriptBox[
        RowBox[{"a", "[", 
         RowBox[{"x", ",", "y"}], "]"}], "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "4"}], " ", "hx", " ", 
          RowBox[{"b", "[", 
           RowBox[{"x", ",", "y"}], "]"}]}], "-", 
         RowBox[{"2", " ", "hx", " ", 
          SuperscriptBox["hy", "2"], " ", 
          RowBox[{"\[Sigma]", "[", 
           RowBox[{"x", ",", "y"}], "]"}]}], "-", 
         RowBox[{"12", " ", 
          SuperscriptBox["hy", "2"], " ", 
          RowBox[{
           SuperscriptBox["a", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"x", ",", "y"}], "]"}]}], "+", 
         RowBox[{"4", " ", 
          SuperscriptBox["hx", "2"], " ", 
          RowBox[{
           SuperscriptBox["b", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"x", ",", "y"}], "]"}]}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox["hx", "2"], " ", 
          SuperscriptBox["hy", "2"], " ", 
          RowBox[{
           SuperscriptBox["\[Sigma]", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"x", ",", "y"}], "]"}]}], "-", 
         RowBox[{
          SuperscriptBox["hx", "2"], " ", 
          SuperscriptBox["hy", "2"], " ", 
          RowBox[{
           SuperscriptBox["a", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"3", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"x", ",", "y"}], "]"}]}]}], ")"}]}]}], ")"}]}]}], "+", 
  RowBox[{
   FractionBox["1", 
    RowBox[{"24", " ", 
     SuperscriptBox["hx", "2"], " ", 
     SuperscriptBox["hy", "2"], " ", 
     SuperscriptBox[
      RowBox[{"a", "[", 
       RowBox[{"x", ",", "y"}], "]"}], "2"]}]], 
   RowBox[{"Uxph", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"24", " ", 
       SuperscriptBox["hy", "2"], " ", 
       SuperscriptBox[
        RowBox[{"a", "[", 
         RowBox[{"x", ",", "y"}], "]"}], "3"]}], "+", 
      RowBox[{"2", " ", 
       SuperscriptBox["hx", "3"], " ", 
       SuperscriptBox["hy", "2"], " ", 
       SuperscriptBox[
        RowBox[{
         SuperscriptBox["a", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"1", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"x", ",", "y"}], "]"}], "3"]}], "+", 
      RowBox[{
       SuperscriptBox["hx", "3"], " ", 
       RowBox[{"a", "[", 
        RowBox[{"x", ",", "y"}], "]"}], " ", 
       RowBox[{
        SuperscriptBox["a", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"1", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"x", ",", "y"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", " ", 
          RowBox[{"b", "[", 
           RowBox[{"x", ",", "y"}], "]"}]}], "+", 
         RowBox[{
          SuperscriptBox["hy", "2"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"\[Sigma]", "[", 
             RowBox[{"x", ",", "y"}], "]"}], "-", 
            RowBox[{"4", " ", 
             RowBox[{
              SuperscriptBox["a", 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"2", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"x", ",", "y"}], "]"}]}]}], ")"}]}]}], ")"}]}], "+", 
      RowBox[{"hx", " ", 
       SuperscriptBox[
        RowBox[{"a", "[", 
         RowBox[{"x", ",", "y"}], "]"}], "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "4"}], " ", "hx", " ", 
          RowBox[{"b", "[", 
           RowBox[{"x", ",", "y"}], "]"}]}], "-", 
         RowBox[{"2", " ", "hx", " ", 
          SuperscriptBox["hy", "2"], " ", 
          RowBox[{"\[Sigma]", "[", 
           RowBox[{"x", ",", "y"}], "]"}]}], "+", 
         RowBox[{"12", " ", 
          SuperscriptBox["hy", "2"], " ", 
          RowBox[{
           SuperscriptBox["a", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"x", ",", "y"}], "]"}]}], "-", 
         RowBox[{"4", " ", 
          SuperscriptBox["hx", "2"], " ", 
          RowBox[{
           SuperscriptBox["b", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"x", ",", "y"}], "]"}]}], "-", 
         RowBox[{"2", " ", 
          SuperscriptBox["hx", "2"], " ", 
          SuperscriptBox["hy", "2"], " ", 
          RowBox[{
           SuperscriptBox["\[Sigma]", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"x", ",", "y"}], "]"}]}], "+", 
         RowBox[{
          SuperscriptBox["hx", "2"], " ", 
          SuperscriptBox["hy", "2"], " ", 
          RowBox[{
           SuperscriptBox["a", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"3", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"x", ",", "y"}], "]"}]}]}], ")"}]}]}], 
     ")"}]}]}]}]], "Output",
 CellChangeTimes->{3.618707881321034*^9, 3.618708373016115*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   SuperscriptBox["u", 
    TagBox[
     RowBox[{"(", 
      RowBox[{"3", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None], "[", 
   RowBox[{"x", ",", "y"}], "]"}], "/.", "U3x"}]], "Input",
 CellChangeTimes->{3.618696079749852*^9}],

Cell[BoxData[
 RowBox[{
  FractionBox["Fxx", 
   RowBox[{"a", "[", 
    RowBox[{"x", ",", "y"}], "]"}]], "-", 
  FractionBox[
   RowBox[{"2", " ", "Fx", " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"1", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], 
   SuperscriptBox[
    RowBox[{"a", "[", 
     RowBox[{"x", ",", "y"}], "]"}], "2"]], "+", 
  FractionBox[
   RowBox[{"2", " ", 
    SuperscriptBox[
     RowBox[{
      SuperscriptBox["a", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"1", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"x", ",", "y"}], "]"}], "2"], " ", 
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"1", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], 
   SuperscriptBox[
    RowBox[{"a", "[", 
     RowBox[{"x", ",", "y"}], "]"}], "2"]], "-", 
  FractionBox[
   RowBox[{
    RowBox[{
     SuperscriptBox["u", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"1", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}], " ", 
    RowBox[{
     SuperscriptBox["a", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"2", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"x", ",", "y"}], "]"}]}], 
   RowBox[{"a", "[", 
    RowBox[{"x", ",", "y"}], "]"}]]}]], "Output",
 CellChangeTimes->{3.618696080720235*^9}]
}, Open  ]]
},
WindowSize->{1037, 655},
WindowMargins->{{59, Automatic}, {Automatic, 0}},
FrontEndVersion->"10.0 for Mac OS X x86 (32-bit, 64-bit Kernel) (June 27, \
2014)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[557, 20, 1286, 40, 114, "Input"],
Cell[1846, 62, 857, 18, 28, "Input"],
Cell[2706, 82, 981, 23, 28, "Input"],
Cell[3690, 107, 96077, 3157, 360, "Input"],
Cell[99770, 3266, 143, 2, 28, "Input"],
Cell[99916, 3270, 96048, 3154, 360, "Input"],
Cell[195967, 6426, 9266, 328, 345, "Input"],
Cell[CellGroupData[{
Cell[205258, 6758, 7815, 231, 707, "Input"],
Cell[213076, 6991, 2788, 103, 88, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[215901, 7099, 5548, 170, 247, "Input"],
Cell[221452, 7271, 11391, 379, 172, "Output"],
Cell[232846, 7652, 11391, 379, 172, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[244274, 8036, 10310, 325, 489, "Input"],
Cell[254587, 8363, 8358, 281, 136, "Output"],
Cell[262948, 8646, 8358, 281, 136, "Output"]
}, Open  ]],
Cell[271321, 8930, 12997, 364, 268, "Input"],
Cell[CellGroupData[{
Cell[284343, 9298, 17011, 490, 612, "Input"],
Cell[301357, 9790, 982, 14, 28, "Output"],
Cell[302342, 9806, 982, 14, 28, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[303361, 9825, 15888, 475, 612, "Input"],
Cell[319252, 10302, 95, 1, 28, "Output"],
Cell[319350, 10305, 95, 1, 28, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[319482, 10311, 3782, 126, 177, "Input"],
Cell[323267, 10439, 2711, 91, 99, "Output"],
Cell[325981, 10532, 1711, 66, 47, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[327729, 10603, 10508, 305, 341, "Input"],
Cell[338240, 10910, 21009, 633, 354, "Output"],
Cell[359252, 11545, 21009, 633, 354, "Output"]
}, Open  ]],
Cell[380276, 12181, 147, 2, 28, "Input"],
Cell[CellGroupData[{
Cell[380448, 12187, 1048, 33, 28, "Input"],
Cell[381499, 12222, 1543, 59, 32, "Output"]
}, Open  ]],
Cell[383057, 12284, 102, 1, 28, "Input"],
Cell[CellGroupData[{
Cell[383184, 12289, 253, 9, 28, "Input"],
Cell[383440, 12300, 242, 9, 52, "Output"]
}, Open  ]],
Cell[383697, 12312, 213, 3, 28, "Input"],
Cell[383913, 12317, 9163, 294, 489, "Input"],
Cell[393079, 12613, 4431, 141, 488, "Input"],
Cell[CellGroupData[{
Cell[397535, 12758, 844, 25, 63, "Input"],
Cell[398382, 12785, 1016, 37, 32, "Output"],
Cell[399401, 12824, 2466, 95, 52, "Output"],
Cell[401870, 12921, 3757, 145, 52, "Output"]
}, Open  ]],
Cell[405642, 13069, 1332, 30, 352, "Input"],
Cell[406977, 13101, 148, 2, 28, "Input"],
Cell[CellGroupData[{
Cell[407150, 13107, 12764, 369, 688, "Input"],
Cell[419917, 13478, 18951, 550, 784, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[438905, 14033, 6201, 161, 172, "Input"],
Cell[445109, 14196, 2670, 91, 87, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[447816, 14292, 515, 14, 69, "Input"],
Cell[448334, 14308, 1996, 70, 53, "Output"],
Cell[450333, 14380, 3312, 113, 99, "Output"],
Cell[453648, 14495, 170, 2, 28, "Output"]
}, Open  ]],
Cell[453833, 14500, 115, 2, 28, "Input"],
Cell[453951, 14504, 118, 2, 28, "Input"],
Cell[454072, 14508, 94, 1, 28, "Input"],
Cell[CellGroupData[{
Cell[454191, 14513, 10677, 349, 460, "Input"],
Cell[464871, 14864, 4046, 150, 52, "Output"],
Cell[468920, 15016, 3224, 108, 128, "Output"],
Cell[472147, 15126, 4209, 142, 154, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[476393, 15273, 17622, 500, 648, "Input"],
Cell[494018, 15775, 29842, 935, 659, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[523897, 16715, 283, 10, 32, "Input"],
Cell[524183, 16727, 1620, 60, 53, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)
